############################################################################# # 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; }