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

# List literal in scalar context
>perl -E"sub c { @a=qw(d e f g); @a } say(scalar('a', 'b', 'c'))"
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)