The record number (1840) is inaccurate because it's counting the map file as well. You might want to put this line just above the start of the second while loop:

$csv = Text::CSV->new({ auto_diag=>1, binary=>1, eol=>"\n" });
[download]

(Yes, that's almost a copy of a previous line, but note that the my is missing.)