my $stg_username = "PerlMonk";
my $stg_password = "VeryGoodPassword";
my @ary_email_address = [ "Monk1", "Monk2", "Monk3" ];

$EllabRecord = { m_username	=> \$stg_username
				, m_password	=> \$stg_password 
				, m_emailAddress	=> \[@ary_email_address] };

print $stg_username;
print $EllabRecord->{m_password};	#prints out "SCALAR (0xAABBCC)"
&PrintArray( \$EllabRecord );

sub PrintArray {
	$reference = $_[0];
	print $$reference->[m_emailAddress]->[0], "\n"; #gives a "Not an ARRAY reference at...Line XX"
}