@hwall = keys %average;
@hwall = sort (%average);

##</code><code>##

@hwall = keys %average;
@hwall = sort { $average{$a} <=> $average{$b} } @hwall;