http://qs321.pair.com?node_id=1230346


in reply to Re^2: how to read input from a file, one section at a time?
in thread how to read input from a file, one section at a time?

The line below will give you those counts.

print $out_file "Number of proteins = ", scalar keys %prot, "\n";