foreach (reverse sort {$one{$a} cmp $one{$b} || $a cmp $b} (keys %one))