Is that the same as the sign of the permutation (SignPerm ... Hm, yep, I guess so)? You may want to check out GAP (or sage which includes GAP). Perl is great, but sometimes it is helpful to have a system where a permutation is a native object. :)