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