sub foo {
    my $foo = $_[0];
    my $quux = baz(@_)
    return $foo ^= $quux;
}