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