$ perl -MData::Dumper -Mwarnings -Mstrict -le 'my $quxx = 10; my $foo = {bar => 1, bazz => 2}; print Data::Dumper->Dump([$quxx, $foo], [qw(quxx foo)]);'
$quxx = 10;
$foo = {
         'bar' => 1,
         'bazz' => 2
       };