#!/usr/bin/perl

use strict;
use warnings;
use List::Uniq qw(:all);
use Data::Dumper::Concise;

my $f2 = [ qw|a c d b e d a|];
my $uniq = uniq( {sort => 1}, $f2 );
print Dumper($uniq);
[download]