use strict;
 use warnings;
 use Array::Compare;
 
 my @ar1 = qw(-true -depth=1); 
 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";}