sub grepix (&@) {
  my $test = shift;
  grep {
    local $_ = $_[$_];
    &$test();
  } (0..$#_)
}

my @index = grepix { /foo/ } qw(foofoo bar fo);