#use strict;
#use warnings;

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