use strict;
use warnings;
use lib '.';
use Vodoo;

$[ = 0;

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=0; $i<=$#arrays2; $i++) {
      print "$i - $cur kommt an Stelle $i im 2. Array vor.\n" if ($cur eq $arrays2[$i]);
   }
}