sub foo {
    my @r = (42) x $_[0];
    return @r;
}

my @a   = foo(3);
my $s   = foo(3);
my ($sl)= foo(3);
print "\@a:   @a\n";
print "\$s:   $s\n";
print "\$sl:  $sl\n";

my @t = (42,42,42);
@a    = @t;
$s    = @t;
($sl) = @t;
print '-'x40,"\n";
print "\@a:   @a\n";
print "\$s:   $s\n";
print "\$sl:  $sl\n";
__END__
@a:   42 42 42
$s:   3
$sl:  42
----------------------------------------
@a:   42 42 42
$s:   3
$sl:  42