open (DATA,"<database.csv");
while(my $line = <DATA>)
{
    chomp $line;
    @array=split(',',$line);
    my $sth = $dbh->prepare("insert into copy values (?,?,?,?,?,?,?)");
    $sth->execute(@array) or die $DBI::errstr;
    $sth->finish();
}