while (my $row = $csv->getline ($fh)) {
    $row->[0] eq "A.SERIAL_NUMBER||" and next;
    :