($foo) = (7,2,4); # list context - comma := list separator
print $foo,"\n";
__END__
7

##</code><code>##

$foo = (7,2,4);   # scalar context despite of parens - comma := 'C' comma
print $foo,"\n";
__END__
4

##</code><code>##

$foo = (7,2,4) x 3; # comma := 'C' comma, 'x' operates on scalar
print $foo,"\n";
__END__
444

##</code><code>##

@foo = (7,2,4) x 3; # comma := list separator, 'x' operates on list
print @foo,"\n";
__END__
724724724

##</code><code>##

@foo = (7,2,4);