Select Code to Download

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

#!/usr/bin/perl -w

...
    return 0;
}