$record->[1] = join '_', @{ $Map{ $record->[1] } }[1,0];

##</code><code>##

  local $, = ' ';
  local $\ = "\n";
  foreach my $record ( @Data ) {
    print OUT @{ $record->[$i] }[0..4];
  }