my @array = qw(dies ist ein Test);
my $check = 'ein';

my ($index) = (grep{ $array[$_] eq $check } 0..$#array)[2];

print "$check ist im Element $index des Arrays\n";