#!/usr/bin/perl

use warnings;
use strict;

my %hash;
my @array;

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