Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
print "%h AFTER do\t"; dd \%h;
print "\$x AFTER do\t"; dd $x;
print "\$r FINAL\t"; dd $r;

Select or download this

$r UNDEF        undef
%h BEFORE do    { z => 26 }
...
%h AFTER do     { z => 26 }
$x AFTER do     { a => 1 }
$r FINAL        { b => 2 }