use List::MoreUtils qw(first_index);
my @a;
$a[8] = 3;
my @b = (5 .. 27);
my $idx = first_index {$_ =~ /$a[8]/} @b;
print "Index $idx  Inhalt $b[$idx]\n"  if defined $idx;