Hi, Try this using Array::Compare module.

TIMTOWTDI

 use strict;
 use warnings;
 use Array::Compare;
 
 my @anc=("BX1.01.001","BX1.01.002","BX1.01.003","BX1.01.004","BX1.01.
+005","BX1.01.006");
 my @ind=("BX1.01.002","BX1.01.002","BX1.01.003","BX1.01.004","BX1.01.
+005","BX1.01.006");
 
 my $comp = Array::Compare->new();
 
 if (!($comp->compare_len(\@anc, \@ind))){
  print "Indicator and anchor count do not match";
  exit;    
 }
 
 if ($comp->compare(\@anc, \@ind)){
  print "Same Array OK";
 }else{
  print "Different Array OK";
 }
[download]

Use $comp->perm(\@anc, \@ind) for compare the array without order.