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

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

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