Select Code to Download

sub indices {
    my $match = shift;

    my $i = 0;
    map { $i++; $_ eq $match ? $i : () } @_
}

sub indices {
    my $match = shift;
    grep $_[$_] eq $match, 0 .. $#_
}