sub do_each_until_false {
    for (@_) {
        return 0 unless $_->();
    }
    return 1;
}