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