my $items = 0;

while (...) {
   ...
   $items += @fields; # Array in scalar context gives number of elements
}