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() ) {
	print Dumper ( "DB1: \t " . $artikelnr_s . "\t" . $bestand_s );
	print "\n";
	# alle Datensätze aus dem Ziel einlesen
	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";