Select Code to Download

  # first process all available player entries
  for (my $i = 0; exists $rx->{"player_$i"}; $i++) {
...
    push @player, delete $rx->{"ngsecret_$i"};
    push @upi, \@player;
  }