Select Code to Download

$foo = 3;
@bar = (1, 2, 3);

return $foo;       # (3)
return @bar;       # (1, 2, 3)

return (\@foo, \@bar);
...

my ($fooref, $barref) = your_function();