Неполная загрузка данных на сервер SQL с использованием скрипта perl

Question

У меня есть скрипт, который читает CSV из двух столбцов, которые я генерирую на основе текущей библиотеки файлов, к которым у меня есть доступ. Я сжимаю файл в массив, затем загружаю элемент CSV за элементом в таблицу SQL, используя следующий код:

    my $e_sth = $trans->prepare("delete from $table where 1 = 1");
    $e_sth->execute();

    my $u_sql = qq{
            insert into $table (KTM, SUBSITE) values
                        (?, ?)
        };
    my $u_sth = $trans->prepare($u_sql);

    foreach my $rec (@list) {
        my ($klf, $subsite) = split(",", $rec);

        # Upload
        $u_sth->execute($klf, $subsite)
    }

    $trans->commit();

Это всегда последняя строка файла, поэтому я уверен, что это сразу же вызовет у некоторых из вас проблему. Я потерян, хотя. Я предполагал, что foreach l oop предотвратит что-то подобное. Количество символов в последней усеченной строке также варьируется. Оба столбца установлены как CHAR (100), причем первичным ключом является столбец KTM.

Любая помощь или руководство приветствуются. Спасибо!

РЕДАКТИРОВАТЬ: Похоже, что я могу достичь какой-то предел данных для таблицы. Я посмотрю на расширение выделенного размера таблицы.