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