while (<$fh>) {
     chomp;
     if ($_ =~ /^>hsa/) {
     $count .= length $_;
         $count .= " ";
     }
 }

##</code><code>##

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