[...]

# Read in the file
while (my $line = <FILE> ) 
{
	if ($csv->parse($line))
	{
		@row = $csv->fields();
		push @data, [ @row ];
	}
}