foreach my $key (qr/AA BB CC/) {
    $myrecord->{$key} = 'NA'
      unless exists($myrecord->{$key});
  }