my $psub = sub { $chosen_idx = $i }