Select Code to Download

sub foo {
    my @r = (42) x $_[0];
...
@a:   42 42 42
$s:   3
$sl:  42

my ($x) = foo(1);

my $x = (foo(1))[0];