If you want to check for content but not order, and would rather have more speed (for larger numbers of items) at the cost of a bit more memory:

use strict;
use warnings;

my @array1 = ('anu','abu','ali');
my @array2 = ('anu','abu');

print mycmp(\@array1, \@array2);

sub mycmp {
    my ($a1, $a2) = @_;
    return 0 if $#$a1 != $#$a2;
    my %h;
    $h{$_}++ for @$a1;
    $h{$_}-- for @$a2;
    for (values %h) {
        return 0 if $_;
    }
    return 1;
}
[download]