Select Code to Download

my %id2seq = (); # this is the verbose form of my %id2seq;
my $id = '';     # this is the wrong place to declare this var! declar
+e it when you need it ie
...
                     # here parens are unneeded and probably nasty
        print $out_fh (">".$id."\n",$id2seq{$id}, "\n");