内容が多いハッシュの値があって、それをデータベースに格納するのに、
そのままSQL文を書くと長いので
　my ( @n, @q, @p );
　foreach my $key ( keys %hash ) {
　　push @n, $key;
　　push @q, '?';
　　push @p, $hash{$key};
　}
　my $sth=$dbh->prepare('INSERT INTO test('.join(',',@n).') VALUES('.join(',',@q).')');
　$sth->execute(@p);
という形でSQL文を構築してデータを格納しているのですが、
もう少しスマートな方法は無いでしょうか？