use Data::Dumper;
my $a = 'hello';
my @foo = qw(1 2 3);
my %bar = (this => 'that', one => 'un');
print Data::Dumper->Dump( [$a, \@foo, \%bar], [qw/$a *foo *bar/] );

##</code><code>##

use Data::Dumper::Names;
my $a = 'hello';
my @foo = qw(1 2 3);
my %bar = (this => 'that', one => 'un');
print Dumper( $a, \@foo, \%bar );

##</code><code>##

use Data::Dumper::Simple;
my $a = 'hello';
my @foo = qw(1 2 3);
my %bar = (this => 'that', one => 'un');
print Dumper( $a, @foo, %bar );