Select Code to Download

  for (sort { $a <=> $b } keys %{ $Diags{$key} } )
    {
...
        }
    }

foreach (sort {$a cmp $b} keys %{$Diags}$key}})