Select Code to Download

use strict;
use Array::Utils qw(:all);
...

__END__
prints: e c a g b d f

@unique_array = keys %{{map { $_ => undef } @array }};

my %seen;
@unique_array = grep { not $seen{$_}++ } @array;