use strict;
use warnings;

our %fred;
my $h = "fred";
{
    no strict q(refs);
    %$h = (name => "Jim", age => 34);
    print $h->{name}, "\n";
}
print $fred{age}, "\n";