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";

#!/usr/bin/perl

my @array = ("dies", "ist", "ein", "Test");
my $index = 'ein';

for my $i ( 0 .. $#array ) {
  if($index eq $array[$i]) {
    print "'$index' ist in \@array an pos. $i\n";
  }
}

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

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

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

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";