use strict;
use Array::Utils qw(:all);
        
  my @array = qw( a b c d c d e f g g g g g f);

  my @unique_array = unique(@array);
  print "@unique_array\n";

__END__
prints: e c a g b d f

##</code><code>##

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

##</code><code>##

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