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