my %clustertotal; my %clustercount; foreach my $servername (keys %servers) { $clustertotal{$servers{$servername}} += get_cpu($servername); $clustercount{$servers{$servername}}++; }; print "$_:\t".($clustertotal{$_}/$clustercount{$_})."\n" foreach sort keys %clusters;