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