if ($record->[1] =~ /$data->[0]/) {
    $record->[1] = join ("_", $data->[3], $data->[1]);
    last;
}