knoppix@Microknoppix:~$ perl -Mstrict -MData::Dumper -wE '
> my %h = (
>    ( 1 => q{j}, 2 => q{b} ),
>    ( 1 => q{p}, 2 => q{b} ),
>    );
> print Data::Dumper->Dumpxs( [ \ %h ], [ qw{ *h } ] );'
%h = (
       '1' => 'p',
       '2' => 'b'
     );
knoppix@Microknoppix:~$