my %descs = map { $_ => $hash{$_}{desc} } keys %hash;

for my $d ( sort { $descs{$a} cmp $descs{$b} } keys %desc ) {
   ...
   ...
}