Select Code to Download

@perls = (1, 2, 3, 4)
sub foo 
...
  return join $/, @foo
}
print foo(\@perls)

one
two
three
four

my @foo = @{shift};