sub indices { my $match = shift; my $i = 0; map { $i++; $_ eq $match ? $i : () } @_ } #### sub indices { my $match = shift; grep $_[$_] eq $match, 0 .. $#_ }