#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;

my $r;

print "\$r UNDEF\t"; dd $r;

our %h = (z => 26);

print "%h BEFORE do\t"; dd \%h;

my $x = do {
    print "PRE local\t"; dd \%h;

    local %h;

    print "POST local\t"; dd \%h;

    %h = (a => 1);

    print "POST assign\t"; dd \%h;

    print "%h BEFORE anon\t"; dd \%h;

    {
        print "PRE local2\t"; dd \%h;

        local %h;

        print "POST local2\t"; dd \%h;

        %h = (b => 2);

        print "POST assign2\t"; dd \%h;

        $r = \%h;

        print "\$r ASSIGNED\t"; dd $r;
    }

    print "%h AFTER anon\t"; dd \%h; 

    \%h;
};

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