Select Code to Download

#!/usr/bin/env perl
use strict;
...
$average{$avg}++;
dd \%average;                # { 10 => 1 }
dd $average{0};              # undef

for my $key (sort keys %hash) {
    my $value = $hash{$key};
}