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