while (<>) {
    2 == (my($x, $y) = split " ") or die "wrong number of fields";
    ...
}