#use strict;
#use warnings;
$h = "fred";
%$h = (name => "Jim", age => 34);
print $h->{name}, "\n";
print $fred{age}, "\n";
####
Jim
34
##
##
use strict;
use warnings;
our %fred;
my $h = "fred";
%$h = (name => "Jim", age => 34);
print $h->{name}, "\n";
print $fred{age}, "\n";
##
##
Can't use string ("fred") as a HASH ref while "strict refs" in use at pbeck2 line 8.
##
##
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";
##
##
Jim
34