Select Code to Download

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