Select Code to Download

use strict;
use warnings;

...

use Data::Dumper;
print Dumper(\%h);

a-a b-b

ARRAY(0x1801180)-A B-B
...
          'a b' => 'A B',
          'b' => 'B'
        };