Overcomplicated code, but the "problem" is that you trie to parse the data twice, as getline already parses

while (my $line = $csv->getline ($FH)) {
    if ($csv->parse (@$line)) {    
        my @field = $csv->fields;
=>
while (my $line = $csv->getline ($FH)) {
    my @field = @$line;
[download]