while(  defined( ( ($x,$y)= recv_data() )[0] )  )
[download]

But I'd rather do that like:

my( $x, $y )= recv_data();
while(  defined $x  ) {
    ...
    ( $x, $y )= recv_data();
}
[download]