foreach $code_key (@array_codes) {
  $code_key =~ s/[.]//g;
  $codes{$code_key}++;
}