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";