while ($line = <F>) {
                    if ($. ==  $findline) {
                        ($field1, $field2, $field3, $field4) = split ',', $line;