my $first_index = first { $arr[ $_ ] =~ /$pat/ } 0..$#arr;