#psuedo code probably
sub NewUser{
$Users{$_[0]}{'Locations'} = $magicHash{'NewRecord'}->AddClientLocations($magicHash{'NewRecord'}->AddLocation($magicHash{'NewRecord'}));
}