for my $i(0..$#open){
	if ($open[$i]->id==$node->id){
		my $bla = splice @open, $i, 1;
		print "i=$i\t"."id=".$bla->id."\n";
		last;
	}
}