while (my $inBuf = <csvFILE>) {
  chomp($inBuf);

  $inBuf =~ s/^\"//;         # Take out any LEADING or
  $inBuf =~ s/\"$//;         # TRAILING double quotes

# OK, Process this record
  my @fields = split(/\,/,$inBuf);
  print "\nProcessing record $fields[0]";
  push @rows, \@fields; # Can push \@fields because @fields is local to the loop
} # End of csvFILE or we reached our Runaway count

close csvFILE;