Select Code to Download

for my $d (sort {$a cmp $b} keys %{{map {$_ => $hash{$_}{desc}} keys %
+hash}} ) {
   ...
   ...
}

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

...
   ...
   ...
}

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

...
   ...
   ...
}

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

...
   my $desc = $descs{$d};
   ...
}

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