for my $id (@array_code) {
   my ($num) = $id =~ /(\d+)/ or next;
   next if !exists($code_numbers{$num});
   my $code = $code_numbers{$num};
   $code = 'IN' if !length($code);
   print("$id $code\n");
}