Select Code to Download

#!/usr/bin/perl -w
use Data::Dumper;

...
}

print Dumper(\%hash2);

$VAR1 = {
          '218489_s_at' => 'NM_000031',
          '216064_s_at' => 'NM_000027',
...
P       A       P'
                           ]
        };