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