#!/usr/bin/perl -w

use strict;
use warnings;
use Array::Compare;

my @array1 = [1,     2];
my @array2 = [2,     1];

my $comp = Array::Compare->new;

if ($comp->perm (\@array1, \@array2)) {
    print "Arrays are perms\n";
} else {
    print "Nope. Arrays are completely different\n";
}