#use strict;
#use warnings;

$h = "fred";
%$h = (name => "Jim", age => 34);
print $h->{name}, "\n";
print $fred{age}, "\n";

##</code><code>##

Jim
34

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

Can't use string ("fred") as a HASH ref while "strict refs" in use at pbeck2 line 8.

##</code><code>##

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";

##</code><code>##

Jim
34