while (<FILE>) {
my ($one,$two,$three..etc)=split(/,/);

}

##</code><code>##

##!/usr/bin/perl
use DBI;
tdbh = DBI->connect("DBI:CSV:")
        or die "Cannot connect: " . $DBI::errstr;
my $sth = $tdbh->prepare("select * from ofphl");
$sth->execute();
    while ($sth->fetch()) {$i++;};
    print ": $i \n";

##</code><code>##

wc -l ofphl

##</code><code>##

map ( {s/\"(.*)\"/$1/;$_}) split(/,/)