my $scalar;
    while( ( $scalar ) = ( get_list() )[0] ) {
        ...
    }