Select Code to Download

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

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

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

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

@foo = (7,2,4);