Help for this page

Select Code to Download

Select or download this

while( my ( $z, $y, $x, $w ) = @{ $iter->next // [] } ) {
   ...;
}