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