for ('A'..'Z'){
  ++$absent{$_} unless exists $prot{$_};
}