Select Code to Download

# your arrays
my @a = qw(a c d);
...
my @unique = sort keys %unique;

# @unique is now the unique elements of those arrays.  Kudos.

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