while (my $row = $sth->fetchrow_hashref) {
  for $row->{Db} (@{$where{NEW_DB}}) {
     for $row->{User} (@{$where{NEW_USER}}) {
        print "INSERT INTO DB ";
        print join(",", map { "$_:'$row->{$_}'" } keys %{$row});
        print ";\n";
     }
  }
}