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