Even with nested arrays/hashes (see Data::Dump; why strain yer brain?):

>perl -wMstrict -le
"use Data::Dump qw(pp);
 ;;
 my %hash = (one => 1,  two => 2,  foo => [ 99, { tres => 3 } ]);
 ;;
 printf qq{%s \n}, pp \%hash;
"
{ foo => [99, { tres => 3 }], one => 1, two => 2 }
[download]