DB<40> sub position (&@) { my $code=shift; my $idx=-1; grep {++$idx; return $idx if &$code} @_ ; ()}

  DB<41> position { !$_ } 1..10,undef,11..20
 => 10