#!/usr/bin/perl

use warnings;

my %hash = (a=>1, b=>2);

{
        local $hash{'a'} = 999;
        print map {"$_ = $hash{$_}, "} sort keys %hash;
        print "\n";
}

print map {"$_ = $hash{$_}, "} sort keys %hash;
print "\n";