#sort.pl 



for($k=0;$k<1;$k++){
    
    $input = "";
    @rote="";
    @sorted="";
    foreach(0..19){
	$input .= chr(rand()*26 + ord('a'));
    }
    
    $length=length($input);
    $count1=1;
    $count2=1;
    
    @rote[0]=$input;
    @first[0]=substr(@rote[0],0,1);
    
    for($i=1;$i<$length;$i++){
	$m=substr(@rote[$i-1],0,1);
	@rote[$i]=substr(@rote[$i-1],1);
	@first[$i]=substr(@rote[$i],0,1);
	@rote[$i].=$m;
    }
    
    @sorted = sort { $a cmp $b } @rote;
    
    for($i=0;$i<$length;$i++){
	@last[$i]=substr(@sorted[$i],$length-1);
	if(@first[$i] ne @first[$i+1] && $i != $length-1){
	    $count1++;
	}
    }
    
    for($i=0;$i<$length;$i++){
	if(@last[$i] ne @last[$i+1] && $i != $length-1){
	    $count2++;
	}
	print @rote[$i],"\n";	
    }
	print "\n",join("\n",@sorted);
	print "\n\n",@first," ",@last,"\n";
     
}

exit;
