Select Code to Download

    @arr1=sort($_[0]);
    @arr2=sort($_[1]);

    my @arr1 = sort @{$_[0]};
    my @arr2 = sort @{$_[1]};

    for (0 .. $#arr1) {
        if ($arr2[$_] ne $arr1[$_]) {
            print "Anchor/indicator mismatch in $arr1[$_]\n";
        }
    }