sub foo {
    my @bar = qw(one two three four);
    return @bar;
}

##</code><code>##

@foobar = foo() or warn "Yikes!\n";

##</code><code>##

@foobar = foo() || warn "Yikes!";