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

for my $d ( sort keys %descs ) {
   ...
   ...
}