Select Code to Download

$distances{$key1}{$key2} = $value;

obj1 obj2 => 0.95
obj2 obj3 => 0.76
obj1 obj4 => 0.80
...

@subsets = (
{
...
    obj5  => "C5",
}
);

%used = (
{
...
    obj5  => "C5",
}
);

for ($i = 0; $i < 50; $i++) { #loop over array of hashes (each subset 
+will have 50 keys)
    foreach my $key (keys $subsets[$i]) { #5 keys at each level
...
        @max = [];
    }
}