Явная ошибка пакета в Perl

Я пытаюсь разобрать строку и поместить части в массив, а затем назначить компоненты массива новым переменным. . Я сделал это точно так же в своем коде, и он работает, но теперь он терпит неудачу, и я понятия не имею, почему. Я думаю, что это что-то простое, и я слишком близко, чтобы увидеть это.

sub timeDiff {
    my ($tday,$tmon,$tyear,$pday,$pmon,$pyear,$tvalue,$pvalue,$reset);
    my (@arrSplitTDate,@arrSplitPDate,$arrSplitTDate,$arrSplitPDate);
    $tvalue = $_[0];
    $pvalue = $_[1];

    print $tvalue;
    print $pvalue;
    @arrSplitTDate = split(/\//, $tvalue);
    $tday = $arrSplitTdate[1];
    $tmon = $arrSplitTdate[0];
    $tyear = $arrSplitTdate[2];

    print $tday . "\n";
    print $tmon . "\n";
    print $tyear . "\n";
}

Вот ошибка:

Global symbol "@arrSplitTdate" requires explicit package name at LargeLDAPSearch.pl line 173, <DATA> line 558.

Кто-нибудь видит причину ошибки? Спасибо.