a.pl

#!/usr/bin/env perl
use strict;
use warnings;

my @arr = qw/a b c d f s f d c c s f e s v c x x z d f e s f d f/;
my %cont;
for my $item (@arr) {
    $cont{$item}++;
}

my @result = sort keys %cont;
print "@result\n";