use Quantum::Superpositions 'any';
# - or -
#use Perl6::Junction 'any';

my ($var1,$var2,$var3,$var4) = (0,0,0,0);

if ( any($var1,$var2,$var3,$var4) == 1 ) {
	print "Bingo!\n";
}