my ( $artikelnr_s, $bestand_s );
my ( $id_t, $artikelnr_t, $timestamp_t, $bestand_t );
print "====================================================================\n";
while ( ( $artikelnr_s, $bestand_s ) = $dbs_result->fetchrow_array() ) {
        # alle Datensätze aus Ziel lesen
        $statement_t1 = "SELECT id, artikel_nr, timestamp, bestand FROM bestaende";
        &dbt1_execute;
        print Dumper ( "DB1: \t " . $artikelnr_s . "\t" . $bestand_s );
        print "\n";
        while ( ( $id_t, $artikelnr_t, $timestamp_t, $bestand_t ) = $dbt1_result->fetchrow_array() ) {
                print Dumper ( "DB2: \t " . $artikelnr_t . "\t" . $bestand_t );
        }
        print "--------------------------------------------------------------------\n";
}
        print "\n\n\n";

# Datenbankabfrage DB2 ausführen
sub dbt1_execute {
        $dbt1_result = $dbt->prepare ( qq {$statement_t1} );
        $dbt1_result->execute() or die DBI->errstr;
        }