Select Code to Download

print my $x = ( 'a', 'b', 'c' );         # c
print my @x = () = ( 'a', 'b', 'c' );    # nothing
...
print scalar ( 'a', 'b', 'c' );          # c
print +() = ( 'a', 'b', 'c' );           # nothing
print scalar ( () = ( 'a', 'b', 'c' ) ); # 3

sub bar {
    local $\;
...
foo:scalar - bar:scalar - e
foo:list - bar:list - 
foo:list - bar:list - 5