my @array = qw(dog cat mat bat hat); 
my ($idx) = grep { $array[$_] eq 'bat' } 0 .. $#array;