18...I knew there was a shorter way

$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%_
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print