"INSERT INTO $q{'-table'} (".join(',', @columns).") VALUES ($ph)"

##</code><code>##

my @columns = map { substr($_,1) } keys %{$q{'-values'}};

##</code><code>##

my @columns = keys %{$q{'-values'}};