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