#!/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'],
);

my %joined;
push(@{$joined{$_->[0]}},{ref=>$_, name=>'array1'}) for(@arr1);
push(@{$joined{$_->[0]}},{ref=>$_, name=>'array2'}) for(@arr2);

for(values(%joined))
{
  if(@$_==1)
  {
    my $lst=join(', ',@{$_->[0]->{ref}});
    print "($lst) nur in $_->[0]->{name}\n";
  }
  else
  {
    my $lst1=join(', ',@{$_->[0]->{ref}});
    my $lst2=join(', ',@{$_->[1]->{ref}});
    if($lst1 eq $lst2)
    { print "In beiden ok ($lst1)\n"; }
    else
    { print "In beiden nicht ok ($lst1) <> ($lst2)\n"; }
  }
}