sub indices {
    my $match = shift;

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