my %unique = map { $_=>1 } @a, @b, @c, @d;
my @unique = sort keys %unique;