@paths = sort { $MyInteger{$b} <=> $MyInteger{$a} ||
                $MyString{$a} cmp $MyString{$b}
              } keys %MyKeys;