$inp{$_} = 1 foreach map /\w{3}_(\w)/, @inp;