Supprimer les doublons dans une liste

Ce module permet de supprimer les entrées en double dans un tableau.

use List::Uniq qw(:all);

my @list = qw(  foo
                bar
                tom
                foo
                bar
             );

my @uniq_list = uniq(@list);

foreach my $line(@uniq_list) {
        print "$line\n";
}