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