Select Code to Download

use Data::Dumper;
my %h;
...
close FH;

print Dumper \%h;

$VAR1 = {
          'A ' => [
...
                    ' 7'
                  ]
        };