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