use Data::Dumper::Declare;

my @foo = qw(Hello World);

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