unless($perm++) {
     #Do the permutation
}