Select Code to Download

print Dumper @{ [ map {"<$_>"} qw/a b c/ ] };
__END__
$VAR1 = '<a>';
$VAR2 = '<b>';
$VAR3 = '<c>';

sub foo { return "World!" }
print "Hello, ", foo(), "\n";   # prints "Hello, World!"
print "Hello, foo()!\n";        # prints "Hello, foo()!"
print "Hello, @{[ foo() ]}\n";  # prints "Hello, World!"