my @sorted = sort {
        $events{$b}{'count'} <=> $events{$a}{'count'}
               } keys %events;
  if (@sorted > $max_wedges)
  {
    map { $events{'other'}{'count'} += $_ } 
        @sorted[$max_wedges..$#sorted];
    @sorted[$max_wedges..$#sorted] = ('other');
  }
  return [map { {$_ => $events{$_}{'count'}}; } @sorted];