...
 while (my $line = <CSV>) {
	chomp $line;
		if ($csv->parse($line)) {
...