Select Code to Download

    foreach $id (keys %id2seq){
        my $filename = (split /\|/, $id)[0];
...
        close $out_fh;
    }