if (<some complex condition depending on the environment>) {
    my $x = 1;
    call_my_sub($x)
} else {
    my $y = 2;
    call_my_sub($y)
}