Select Code to Download

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

Jim
34

use strict;
use warnings;
...
%$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;
...
    print $h->{name}, "\n";
}
print $fred{age}, "\n";

Jim
34