my $stats = $self->{dbh}->selectall_arrayref(
      "SELECT military$guid, people$guid, production$guid, points$guid
       FROM os_$user{game}_stats ORDER BY year");
    my @maxval;
    for ( 0 .. $#{$stats->[0]} ) {
        $maxval[$_] = $stats->
          [ (sort{$stats->[$a]->[$_]<=>$stats->[$b]->[$_]}0..$#$stats)[-1] ]->
          [$_];
    }