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