if ( $#array1 != $#array2 ) {
   die "Arrays sind verschieden groß!\n";
}
else {
  for my $i ( 0 .. $#array1 ) {
    if ( $array1[$i] ne $array2[$i] ) {
      die "Arrays sind unterschiedlich in Zeile $i.\n";
    }
  }
}