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