...
my @fields = split /\t/, $item;
next if @fields < 7;
...