my $sql = "INSERT INTO db ("; $sql .= join", ", keys( %{$ref} ); $sql .= ") VALUES ("; $sql .= join", ", map { "?" } values( %{$ref} ); $sql .= ")"; my @bind = values %$ref;