Select Code to Download

$record->[1] = join ("_", $Map{$record->[1]}[1], $Map{$record->[1]}[0]
+);

$record->[1] = $Map{$record->[1]}[1] . '_' . $Map{$record->[1]}[1];

    print DATA join(" ", @$record[0..4]), "\n";

    for my $i (0 .. 4) {
        print DATA $record->[$i] . " ";
    }
    print DATA "\n";

print DATA join(" ", @$_[0..4]), "\n" for (@Data);