######################################################################
+#######
# Remove duplicated array members
# For example if you have an array @D=qw(1 2 1 3 1 4 1 5)
# It will return an array [1 2 3 4 5]
# Usage @Clean=nonDuplicatedArray(@D);
sub nonDuplicatedArray  #(@DuplicatedArray)
{

    my @Duplicated=@_;
    my %seen=();
    my (@NonDuplicatedArray,@Unique);

    @Unique = grep {! $seen{$_}++} @Duplicated;
    @NonDuplicatedArray = sort(@Unique);

return @NonDuplicatedArray;
}

or

@ARR2 =('p1','p2','p3','p1','p2','p1');
@unique = grep { ++$count{$_} < 2 }   @ARR2;
[download]