my @no_duplicates = r(@original_array);
[download]

my @no_duplicates = r(@original_array);

Please, note that this method may not preserve the original order of the array values. But uniq function from List::MoreUtils does, as mentioned in perlfaq4 and PBP.

I wish to check that the array @regions_A_array does not contain any duplicates and if it does I wish to remove the duplicate.

I personally believe I can't fu**ing believe it: Win, I'm sorry to quote myself, but since you have been extensively harassing the Monastery with remove-duplicates-kinda questions, I'm directing you to one of the answers I gave you back then. I'm astonished and disappointed that you're starting this pantomime over again.

To make this thread minimally interesting (since you can find an actual answer elsewhere) I'll point out that with 5.10 you can easily enough, syntactic-pov-wise, avoid the use of a hash:

#!/usr/bin/perl

use strict;
use warnings;
use List::Util 'shuffle';
use 5.010;

my @new;
$_ ~~ \@new or push @new, $_ for
  shuffle map { ($_) x rand 100 } 'a'..'e';
say "@new";

__END__
[download]

But I wouldn't recommend that!

######################################################################
+#######
# 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;
}
[download]