johngg@abouriou ~/perl/Monks $ perl -Mstrict -Mwarnings -MData::Dumper -E '
my %hash = ( Name => q{Fred}, Age => 28, Sex => q{M} );
print Data::Dumper->Dumpxs( [ \ %hash ], [ qw{ *hash } ] );'
%hash = (
          'Sex' => 'M',
          'Age' => 28,
          'Name' => 'Fred'
        );