Select Code to Download

use Data::Dumper;
my @asdf = (qw/A B C D E F/);
...
}

print Dumper \%hash;

$VAR1 = {
          'A' => {
...
                          }
                 }
        };