typedef struct s_USERINFO{
	CString m_username;
	CString m_password;
	CString m_emailAddress[20];
} USERINFO;

int main () {
	USERINFO currentUserInfo;
	test( currentUserInfo );
	printf ("%s", currentUserInfo.m_username);
}
void test ( USERINFO* thisUserInfo ) {
	thisUserInfo->m_username = "Pigsy's Perfect Ten";
}

##</code><code>##

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";