#!/usr/local/bin/perl

use strict;

# example of methods for referencing hash elements


# initialize hash
my %hash;
$hash{a} = 1;
$hash{b} = 2;
$hash{c} = 3;

# inspection
print "\$hash{c} = " . $hash{c} . "\n\n";

# set a reference to the hash
my $hash_ref = \%hash;

print "\${\$hash_ref}{c} = " . ${$hash_ref}{c} . "\n\n";

print "\$hash_ref->{c} = " . $hash_ref->{c} . "\n\n";

# dereference the hash_ref
my %dereference_hash = %{$hash_ref};

print "\%dereference_hash = \%{\$hash_ref}\n";
print "\$dereference_hash{c} = " . $dereference_hash{c} . "\n";


# OUTPUT
# $hash{c} = 3
# 
# ${$hash_ref}{c} = 3
# 
# $hash_ref->{c} = 3
# 
# %dereference_hash = %{$hash_ref}
# $dereference_hash{c} = 3