You might also consider using the three argument form of open:

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