my $idx = first { !defined($a[$_]) || ... } 0..$#a;