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