Select Code to Download

use Quantum::Superpositions 'any';
# - or -
...
if ( any($var1,$var2,$var3,$var4) == 1 ) {
    print "Bingo!\n";
}

my @ary = (0,0,0,0);

if ( any(@ary) == 1 ) {
    print "Bingo2!\n";
}