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