my @list = scalar function();

##</code><code>##

    my $scalar = list function();

##</code><code>##

    0; # void context below!
    list function(); # fake list context
    0; # void context above!