G'day Dr Manhattan,

Your problem description if far from clear, and you've posted no code that might have clarified what you meant, or given some indication of whatever it is that you're having difficulty with. I don't know what you mean by "unique(ish)" or "... struggling because all of them are unique ...".

Here's a guess at what I think your data looks like and how you might handle it:

$ perl -Mstrict -Mwarnings -E '
    use Data::Dumper;

    my %data = (
        A => {
            a => {f => 1, g => 1, h => 1},
            b => {i => 1},
            c => {j => 1, k => 1},
        },
        B => {
            d => {l => 1, m => 1},
            e => {n => 1},
        },
    );

    for my $key (keys %data) {
        my $count = 0;
        map { $_ = ++$count for values $data{$key}{$_} } keys $data{$k
+ey};
    }
    print Dumper \%data;
'
$VAR1 = {
          'B' => {
                   'e' => {
                            'n' => 1
                          },
                   'd' => {
                            'l' => 2,
                            'm' => 3
                          }
                 },
          'A' => {
                   'b' => {
                            'i' => 1
                          },
                   'a' => {
                            'h' => 2,
                            'g' => 3,
                            'f' => 4
                          },
                   'c' => {
                            'j' => 5,
                            'k' => 6
                          }
                 }
        };
[download]