> perl -E '
use P;
for  ($_=3;$_-- >0;) { P "_=%s", $_ }'    
_=2
_=1
_=0