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