open(my $in, '<', "/Users/Desktop/Pipelines/fungi.1.aa.hypothetical.faa");
open(my $out, '>', "Users/Desktop/Pipelines/fungi.1.aa.hypothetical50.faa");