my $names = join ",\n", map {s/^-//; $_ } keys %data;
my $values= join ",\n", map { m/$-/ ? $data{$_} : $dbh->quote($data{$_} } keys %data;