Select Code to Download

#!/usr/bin/perl -w
use strict;
...
for my $accno (@Accession) {
    print "Acc no: $accno, Gene: $foo{$accno}\n";
}