for my $key ( keys %CustomerUserList ){
    print $CustomerUserList{$key}->{UserLocation},"\n"; # dereferenzieren...
}