my $psub = [ sub { $chosen_idx = $_[0] }, $i ];