perl -F, -lane 'print $t = length $F[0] <= $t ? next LINE : length $F[0]' file.csv