use Scalar::Util 'dualvar';

our @data;
while (my ($k, $v) = each %{$href}) {
    push @data, dualvar($v, $k);
}
# output array of dualvars; sorted by number, string
print "$_\t".(0+$_)."\n" for sort { $b <=> $a } sort @data;

##</code><code>##

# llil2.pl sort + output : 19 secs
# llil3.pl sort + output : 16 secs -- dualvar