# Auflistung aller verwendeten Tags	
        my @key_list=OsmPM_GetKeyList(@osm_data); 
	my @key_id_list = OsmPM_GetKeyIdList(@osm_data);  # <<< das ist das von oben!

	foreach my $keyname (@key_list)
	{
		# tag-count
		my @tags = $key_id_list{$keyname}; #<<< angemerkte zeile
		my $tag_count = scalar(@tags);
	}