while ( my $row = $csv->getline( $fh ) ) {
      $patron_count++;
 
    push @rows, $row;

##</code><code>##

 $csv->print ($fh, $_) for @rows;