Select Code to Download

my @x = map { return $_; } (1,2,3);
print "(@x)\n";

sub foo(&@) {
...
#this outputs "(1 2 3)"
my @x = foo { return $_; } (1, 2, 3);
print "(@x)\n";