sub foo {
    my @foo = qw(a b c d);
    return @foo;
}
sub bar {
    return qw(15 4 3 12);
}

print        foo(), "\n"; #   list context => abcd\n
print scalar foo(), "\n"; # scalar context => 4\n
print        bar(), "\n"; #   list context => 154312\n
print scalar bar(), "\n"; # scalar context => 12\n

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$