my @values  = values %$data;
my $keylist = join ',', keys %$data;
my $qlist   = join ',', ('?') x @values;