#!/usr/bin/perl
use strict;
use warnings;

my @arr1 = (
['a', 1, 2, 3],
['b', 4, 4, 3],
['d', 5, 2, 'H'],
);
my @arr2 = (
['a', 1, 2, 3],
['c', 8, 'r', 9],
['d', 5, 'f', 'H'],
);

for my $pos (0..$#arr1)
{
  my $l1=join(':',@{$arr1[$pos]});
  my $l2=join(':',@{$arr2[$pos]});
  if($arr1[$pos][0] eq $arr2[$pos][0])
  {
    if($l1 eq $l2)
    { print "POS: $pos in beiden ok ($l1)\n"; }
    else
    { print "POS: $pos in beiden nicht ok ($l1) <> ($l2)\n" }
  }
  else
  {
    print "POS: $pos: Nur in arr1 ($l1)\n";
    print "POS: $pos: Nur in arr2 ($l2)\n";
  }
}