my( $one, $two );
    while( ( $One, $two ) = ( get_list() )[0,3] ) {
        # Loops until get_list() returns an empty list.
    }