Select Code to Download

use strict;
use warnings;
...
  'frodonl' => 1,
  'im2' => 1,
);

my @cbusers_lines;
for my $user (sort keys %cbusers) {
  push @cbusers_lines, "$user is a level $cbusers{$user} user";
}
print join( "\n" , @cbusers_lines );

print join( "\n" , map( "$_ is a level $cbusers{$_} user" , sort keys 
+%cbusers ) );

my @cbusers_levels;
for my $user (keys %cbusers) {
  push @cbusers_levels, $cbusers{$user};
}
print sum(@cbusers_levels);

my $cbusers_total_levels;
for my $user (keys %cbusers) {
...
}
print "Total: $cbusers_total_levels\n";
print "Average: ".$cbusers_total_levels / scalar(keys %cbusers); #even
+ get the average w/o importing