foreach my $asd (@phrase){
   chomp($asd);
   $asd = reverse($asd);
   chomp($asd);
   $asd = reverse($asd);
   print "$asd\n";
}