at beginning of BLOCK value of $r is: set in file scope
in conditional statement value of $r is: set in file scope
at end  of BLOCK value of $r is: set in if condition
after BLOCK value of $r is: set in file scope