...
print $fh ">$description\n";
print $fh "$_\n" foreach ($seq =~ /.{1,50}/g);
...