Select Code to Download

while (<$fh>) {
     chomp;
...
         $count .= " ";
     }
 }

for (@lines) { print $fh length($_) . " " if ($_ =~ /^>hsa/); }