#!/usr/bin/perl

use warnings;
use strict;

my %hash;
my @array;

{
    local $hash{foo} = 'bar';
    local @array;
}

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my %hash;
our @array;

{
    local $hash{foo} = 'bar';
    local @array;
    print Dumper(\%main::);
}