#!/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="";
while(@zusammen>0)
{
  my $wert=shift(@zusammen);
  push(@neu,$wert)if($wert eq $zusammen[0] and $alt ne $wert);
  $alt=$wert;
}

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