#!/usr/bin/perl

use Data::Dumper;

my %h;
{
   local $h{key} = 'blah';
   # even "local $h{key};" will do
   # inititialization is only for clarity
}

print Dumper \%h;