use Quantum::Superpositions qw( any all );

if ( all( undef, 2, 0, 'x' ) ) {
    print "They're all true!\n";
}
else {
    print "At least one is false!\n";
}

if ( any( undef, 2, 0, 'x' ) ) {
    print "At least one is truee!\n";
}
else {
    print "They're all false!\n";
}