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