$r UNDEF        undef
%h BEFORE do    { z => 26 }
PRE local       { z => 26 }
POST local      {}
POST assign     { a => 1 }
%h BEFORE anon  { a => 1 }
PRE local2      { a => 1 }
POST local2     {}
POST assign2    { b => 2 }
$r ASSIGNED     { b => 2 }
%h AFTER anon   { a => 1 }
%h AFTER do     { z => 26 }
$x AFTER do     { a => 1 }
$r FINAL        { b => 2 }