You have indeed correctly identified the problem. When you create the closure:

my $psub = sub { $chosen_idx = $i }
[download]

It binds to the variable $i, not the current value. And since you change the variable later, the value changes too.

If you want to bind it to the current value, you have to copy it, as you did in your $icopy example.