#!/usr/bin/perl

use strict;
use warnings;


# 0, 1, 2
my @array1 = ("x","y","z");
my @array2 = ("x","y","y");

for(my $i = 0; $i < 3; $i++) {
    if($array1[$i] ne $array2[$i]) {
        print "Array1 ist an stelle $i nicht gleich mit Array2\n";
    }
}