open (DATA,"<database.csv");
while(my $line = <DATA>)
{
	chomp $line;
	@array=split(',',$line);
        my $sth = $dbh->prepare("insert into copy values ('$array[0]',$array[1],'$array[2]','$array[3]','$array[4]',$array[5],'$array[6]')");
	$sth->execute() or die $DBI::errstr;
	$sth->finish();
}