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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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