my @res = $a->[3]($key,$a->[4]);
$_[0][1]{$key} = 0, return unless @res;