sub number_of_true_variables {
    return scalar grep { $_ } @_;
}

if ( number_of_true_variables( $x, $y, $z ) == 1 ) {
    print "Exactly one variable set\n";
}