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);

##</code><code>##

use Data::Dumper::Declare;

my @foo = qw(Hello World);

print Dumper(
	@foo,
	$foo[0],
	$foo[1],
	join('::', @foo),
);