sub AND {
    my $last;
    first {!($last = $_)} @_ or $last;
}

sub OR {
    my $last;
    first {($last = $_)} @_ and $last;
}