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
####
my ($x) = foo(1);
##
##
my $x = (foo(1))[0];