c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"print 'perl version: ', $];
 ;;
 our %h;
 ;;
 my $x = do { local %h=(a=>'3'); \%h };
 my $y = do { local %h=(b=>'5'); \%h };
 ;;
 print 'ref. addr. of %h: ', \%h;
 dd 'contents of %h: ', \%h;
 ;;
 print 'ref. addr. of $x: ', $x;
 dd 'contents of $x: ', $x;
 ;;
 print 'ref. addr. of $y: ', $y;
 dd 'contents of $y: ', $y;
"
perl version: 5.008009
ref. addr. of %h: HASH(0x2c068a4)
("contents of %h: ", {})

ref. addr. of $x: HASH(0x14b5fa4)
("contents of \$x: ", { a => 3 })

ref. addr. of $y: HASH(0x14b60dc)
("contents of \$y: ", { b => 5 })