foreach my $test (@tests){
    if($mask & $byte{$test}){
        $mask = $mask ^ $byte{$test} unless &$execute{$test};
        #if the test returned false we unset the bit
    }
}