use sprintf to round

script.pl

@@ -72,9 +72,7 @@ sub generate_output_table ($ts) {
 
     # create hash with each computer and its average GHz Days per day
     my %ranks = pairmap {
-        my $mean    = sum( @$b ) / @$b;
-        my $rounded = int( $mean + 0.5 );
-        $a => $rounded;
+        $a => sprintf "%.0f", sum(@$b)/@$b;
     } %$list;
 
     # sort hash by the average and print to screen