Select Code to Download

 
foreach $id (keys %id2seq){
        if (-f $id) { print $id." already exists. about to overwrite i
+t\n";}  
...
        print $out_fh ($id."\n",$id2seq{$id}, "\n");
        close $out_fh;   ## moved into the foreach loop
    }