while( my ($a_permutation) = $iter->next ) {
   ...
}