print "Scalar assignment:\n";
$x = ( context(1), context(2), context(3) );
print "\$x = $x\n\n";

print "List assignment:\n";
@x = ( context(1), context(2), context(3) );
print "\@x = @x\n";


sub context {
    my $arg = shift;

    if(wantarray) {
        print "$arg: list context\n";
        return("oranges", "lemons");
    } elsif(defined(wantarray)) {
        print "$arg: scalar context\n";
        return("apples");
    } else {
        print "$arg: void context\n";
        return("into the...");
    }
}