my $i1 = firstidx { $_ == 1 } @array;