#!/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";
  }
}