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

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