sub get_node_list_id {

	 #my ($object, $type)=_split_object(splice(@_,1));
	 my $object = shift;
     
	 
	 return undef if(!$object); 
	 return undef unless($object->type() eq 'way');
     print "\nhinter der pruefung\n";
	 my @result = ();
	 
	 foreach ($object->node_list()){
	   print $_->id()."\n";
	   push @result, $_->id();
	 }
	 print Dumper(@result);
	 print "hinter der schleife\n";
	 
	 @result;
}#end-get_node_list_id