D:\tmp>type tst_b_xref3.pl
unless ($var1) {
    $var2++;
}
else {
    $var3++;
}