Help for this page

Select Code to Download

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

Select or download this

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