my $db_source = "dbi:Oracle(AutoCommit=>1):" .$proddbname;
my $dbh = DBI->connect( $db_source, $proddbuser, $proddbpasswd ) or die "Keine Datenbankverbindung zu $db_source:\n$DBI::errstr";	
	
foreach(@partnumbers) {
	$partnr = $_;
	chomp($partnr);
	print Dumper $partnr;
	$sth = $dbh->prepare('SELECT PRODUCT_ID FROM schema.products@dblink_to_testdb WHERE (id= ?)');
#		$sth->bind_param(1,$partnr);
		$sth->execute();

if ( @row = $sth->fetchrow_array ) {
	print "@row gefunden.\n";
}