Help for this page

Select Code to Download

Select or download this

my %uniq;
for ( keys %hash ) {
...
    $uniq{$reordered_key} += $hash{$_};
}
# still untested