use Data::Dumper;
$Data::Dumper::Terse  = 1; # No VARs.
$Data::Dumper::Indent = 1; # Less indenting.
my %what = ( foo => [ 1 .. 3 ],
             wacka => 1 );

print Dumper \%what;

__END__
{
  'wacka' => 1,
  'foo' => [
    1,
    2,
    3
  ]
}