substract.pl

#!perl
use warnings;
use strict;

my $x = [1,2,3];
my $y = [2,3,4];
my $t = [3,4,5];

sub substract {
    my @arrays = @_;
    my %h = ();
    foreach my $array(@arrays) {
        map {
            $h{$_}+=1;
        } @$array;
    };
    my @result = grep { $h{$_} == 1 } keys %h;
    return wantarray ? @result : \@result;
}

use Data::Dumper;
my $xx = substract($x,$y,$t);
warn Dumper($xx);