use strict;
use warnings;
my %cbusers = (
'BrowserUk' => 28,
'GrandFather' => 23,
'CountZero' => 20,
'wfsp' => 19,
'ambrus' => 19,
'Khen1950fx' => 18,
'atcroft' => 17,
'ELISHEVA' => 17,
'jwkrahn' => 16,
'Krambambuli' => 11,
'Lady_Aleena' => 9,
'Excalibor' => 7,
'Voronich' => 7,
'Eliya' => 7,
'gnosti' => 7,
'AndyZaft' => 6,
'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) {
$cbusers_total_levels += $cbusers{$user};
}
print "Total: $cbusers_total_levels\n";
print "Average: ".$cbusers_total_levels / scalar(keys %cbusers); #even get the average w/o importing