my %hash = map { $_ => undef } @array;

# Add things to hash like this:

$hash{'a'} = undef;
$hash{'d'} = undef;

# Turn back into list with 'keys'

print join(',', sort keys %hash), "\n";