my $index = first { $b[ $_ ] eq $a[8] } 0 .. $#b;