my @list = sort(@list);
my @unique;
my $i=0;

$unique[0] = $list[0];

foreach my $item(@list) {
    unless($item eq $unique[$i]) {
        push(@unique,$item);
        $i++;
    }
}