if (($zero=0)) {
    do_something($zero); # never
}

if (my $one=1) {
    do_something($one); # always
}

while (($two=2)) {
    do_something($two); # for ever
}

while (my $empty='') {
    do_something($empty); # never
}