#!/usr/bin/perl -w
use strict;

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