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