for my $d ( map { $_->[0] }
              sort { $a->[1] cmp $b->[1] }
                map { [ $_, $hash{$_}{desc} ] }
                  keys %hash )
{
   

}