use warnings;
use strict;
use Data::Dumper;
sub test (\%);
#no strict 'refs';
my $username        = "PerlMonk";
my $password        = "VeryGoodPassword";
my @email_addresses = ( "Monk1", "Monk2", "Monk3" );

my %Record1 = ( username        => '$' ,
				password        => $password , 
				emailAddress    => [@email_addresses] );
$Record1{username} = 'NOOoooooo!';

&test( %Record1 );
sub test (\%) {
	my $reference = shift;
	my $test = "Pigsy's Perfect Ten";
	$$reference->{username} = $test;
	print $$reference->{username}, "\n";
}
print $Record1{username}, "\n";