while( my ( $z, $y, $x, $w ) = @{ $iter->next // last } ) { }

##</code><code>##

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

##</code><code>##

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