#file: hashptr.pl
#desc: hash pointers


%myhash = ("first" => "alex",
	   "last"  => "labrinidis");

foreach $key (keys %myhash) {
    print "key $key corresponds to $myhash{$key}\n";
}

$myhashptr = { "first" => "ALEX",
	       "last"  => "LABRINIDIS" };
#print "first name is " . $myhashptr->{"first"} . "\n";

foreach $key (keys %$myhashptr) {
    print "key $key corresponds to $myhashptr->{$key}\n";
}

print "first name is " . %$myhashptr{"first"} . "\n";