if (@sorted > $max_wedges) {
   $events{other}{count} += $_ for @sorted[$max_wedges..$#sorted];
   @sorted[$max_wedges..$#sorted] = ('other'); # loaded gun? 
}