my @a = ( 1..3, 2..3, 6, 8..9);
# Extract unique elements


print { @@{@a}=$,=' '; \*STDOUT}  keys(%@);