my $SQL = "INSERT INTO $table VALUES (" 
        . join(",", map { "?" } $csv->fields)
        . ")";
$prep = $db->prepare($SQL) or die "Cannot prepare database";
while (my $row = $csv->getline($fh)) {
    $prep->execute($csv->fields);
}