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