print "--- dumper ---\n"; print Dumper(osmtree_get_node_list_id($first_obj))."\n"; my $superway_id = osmtree_get_node_list_id($first_obj); print "superway_id: ".$superway_id."\n";