Select Code to Download

my @nlist = (3,24,8,17,23,14,17,9,16,24,25,11,22,14,14,8,19,16,15,8);
my @key_list = ('A'..'Z');
...

require Data::Dumper;
print(Data::Dumper::Dumper(\%hash));

$VAR1 = {
          'A' => [3,24,9,24,15],
...
          'G' => [11,22],
          'H' => [19]
        };