my $outfile = qq{$path/$name.faa};
open( my $out_fh, q{>}, $outfile ) or die qq{problem writing to ‘$outfile’: $!};