use warnings;
use strict;

my $ph = [ { alpha => 1, beta => 2, gamma => 3, delta => 4, epsilon => 5 }, #hashref
             "val a",    "val b",   "val c",    "val d",    "val e" ]; # maps to these values

# Print some of the elements
print $ph->[1], "\n";
print $ph->{ alpha }, "\n";
print $ph->{ epsilon }, "\n";

# Let's add an element
# Note the amount of work involved (though this can be done on two lines)
# We can't autovivify an entry!!
$ph->[ $ph->[ 0 ]->{ omega } = @{ $ph } ] = "The real last val";

print $ph->{ omega };