...
my $fieldLength = 2000;

foreach (@elements) {
    use bytes;
    chomp;
    if (length($_) >= $fieldLength) { 
    $_ = substr($_, 0, $fieldLength);
}
...