@perls = (1, 2, 3, 4)
sub foo 
{
  my @foo = @{shift()};
  return join $/, @foo
}
print foo(\@perls)

##</code><code>##

one
two
three
four

##</code><code>##

my @foo = @{shift};