warn Data::Dumper->Dump( [$foo, \%this, \@array, \%that], [qw/*foo *that *array *this/] ); #### use Data::Dumper::Simple; warn Dumper($foo, %this, @array, %that); #### use Data::Dumper; warn Dumper($foo, $bar, $baz); #### $VAR1 = 3; $VAR2 = 2; $VAR3 = 1; #### warn Data::Dumper->Dump( [$foo, $bar, $baz], [qw/*foo *bar *baz/] ); #### $foo = 3; $bar = 2; $baz = 1; #### warn Data::Dumper->Dump( [$foo, \@array], [qw/*foo *array/] ); #### $foo = 3; @array = ( 8, 'Ovid' ); #### warn Data::Dumper->Dump( [$foo, \%this, \@array, \%that], [qw/*foo *that *array *this/] ); #### use Data::Dumper::Simple. warn Dumper($scalar, @array, %hash); #### $scalar = 'Ovid'; @array = ( 'Data', 'Dumper', 'Simple', 'Rocks!' ); %hash = ( 'it' => 'does', 'I' => 'hope', 'at' => 'least' ); #### my $foo = { hash => 'ref' }; my @foo = qw/foo bar baz/; warn Dumper ($foo, \@foo); #### $foo = { 'hash' => 'ref' }; @foo = ( 'foo', 'bar', 'baz' ); #### Dumper($foo, some_sub()); # Bad!