use Data::Dumper::Declare;

my $foo = 1;
my $bar = 'Hello World';
my @baz = qw(1 2 3);

print Dumper($foo, substr($bar, 0, 5), @baz);