w $hash{key} ne "unexpected"

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{   my %hash;
    sub set {
        %hash = (a => 12, b => 14);
    }
    sub get {
        my ($key) = @_;
        return $hash{$key}
    }
    sub change {
        $hash{b} = 'Boo';
    }
}

set();

say get('b');

change();

say get('b');