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