if ($x and ! $y) {
    ...
}
elsif (!$x and $y) {
    ...
}
else {
    ...
}