for my $key (sort keys %hash) {
    my $avg = $hash{$key}->[1] / $hash{$key}->[0];    # sum/count.
    print "$key\t$avg\n";  
}