my ($x, $y) = (1,2);
if (<condition>) {
    call_my_sub($x)
    } else {
    call_my_sub($z)
}