# Lese alle Zeilen als Hashrefenz aus der Abfrage in DB A
while(my $row=$sth_a->fetchrow_hashref)
{
  # ermittle alle Schlüssel des Hashes (das sind die Spaltennamen)
  my @names=keys(%$row);
  # füge alle Spaltennamen Komma separiert zusammen
  my $keys=join(', ',@names);
  # erzeuge genauso viele Komma separierte "?" wie es Spaltennamen gibt
  my $values=join(', ',map{'?'}@names);
  # Erzeuge ein Statement das Alle Werte Aus der Abfrage in BD A in die Tabelle der DB B einfügt.
  # Beispiel: "INSERT INTO Adresse (ort, strasse, ausnummer) VALUES (?, ?, ?)"
  # und führe das Statement mit den Werten aus dem Hash aus.
  $dbh_b->do("INSERT INTO Adresse ($keys) VALUES ($values)",undef,@$row{@names});
}