Select Code to Download

    my %averages;
...
             $averages{$_}|=999;
             print "$key => $averages{$_}\n";
        } keys %averages;