Select Code to Download

# List literal in list context
>perl -E"sub c { @a=qw(d e f g); @a } say('a', 'b', c())"
...
# List literal in scalar context
>perl -E"sub c { @a=qw(d e f g); @a } say(scalar('a', 'b', c()))"
4   # scalar(@a)