Select Code to Download

sub indices ($@) {
  # note the prototype has target, then list
...
    grep { $_->[0] eq $target }
      map { [$_ , $index++] } @list;
}