if(&{sub{my $count=0;foreach(($a,$b,$c,$d)){if(m/0/){$count++;}}return $count==4;}}){
    #..
}