Select Code to Download

 use strict;
 use warnings;
...
 my @ar2 = qw(-search -depth=1 -true -expand_all);
 my $comp = Array::Compare->new();
 if ($comp->compare(\@ar1, \@ar2)){print "Same Array OK";}else{print "
+Different Array OK";}