$a = [1,2,3];
$b = [3,4,5];
$c = [6,7,8];

@test = unique($a,$b,$c,$a,$b);
use Data::Dumper;
print Dumper \@test;

sub unique {
    #23456789012345678
    @_{@_}=@_;values%_
}