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

my @a1 = qw{ abc def 123 456 };
my @a2 = qw{ abc 123 789 };
my @a3 = qw{ def ghi 123 000 };

my @zusammen=sort(@a1,@a2,@a3);

my @neu=();

my $alt="";
my $cnt=1;
while(@zusammen>0)
{
  my $wert=shift(@zusammen);
  if($alt eq $wert)
  { $cnt++ }
  else
  {
    push(@neu,$alt)if($cnt==3);
    $cnt=1;
  }
  $alt=$wert;
}

print "#### VORGABE ####\n@a1\n@a2\n@a3\n#### ERGEBNIS ####\n@neu\n";