## very very simple example...

my @a = qw(0 1 2 3 a b c);
my @b = qw(a b 0 1 3 c 2);

if (join(";",sort @a) eq join(";",sort @b)) {
print "OK\n" ;
}