B - さかさま辞書

gistfile1.pl

chomp($tango_num = <STDIN>);
 
while(<STDIN>){
 
    @w = split(//, $_);
    @w = reverse(@w);
    $s = join('', @w);
    
    push @list , $s;
}
 
@list = sort @list;
 
for(@list){
    @w = split(//, $_);
    @w = reverse(@w);
    $s = join('', @w);
    print $s;
}