my $n = () = bad();
print $n; #print 4

sub bad {
    return qw/foo bar baz timon/;
}