Select Code to Download

my %finish;
for my $indexes (@start) {
...
   $p = \($$p->{$_}) for @$indexes;
   $$p = 1;
}