my ($fh1, $fh2);
open $fh1, ">GENEID.out" or ...
open $fh2, ">PROTID.out" or ...