# perl use 5.010; require Data::Dumper; my $foo = [ qw( an array ) ]; my $bar = { a => "hash" }; say Data::Dumper->Dump( [ $foo, $bar ], [ 'foo', '*bar' ]); ^D $foo = [ 'an', 'array' ]; %bar = ( 'a' => 'hash' );