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