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

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