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