my @list = glob("*.fasta");
foreach my $fname (@list) {
  my ($base) = split /\./, $fname;
  system "perl mycode.pl $base >~/MyPerl/result_ans/$base.out"
}