# 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);
        }