package Vodoo;

$[ = 20;

package main;

my @arrays1 = qw(w a f g b c j g r l);
my @arrays2 = qw(0 1 r 5 6 a l w f b g);

for my $cur (@arrays1) {
   for (my $i=$[; $i<=$#arrays2;$i++) {
      print "$i - $cur kommt an Stelle $i im 2. Array vor.\n" if ($cur eq $arrays2[$i]);
   }
}