use strict;

my %g_User;
sub setup_user_details {
  my ($username) = @_;
  my @l_UserDetails = ("John","Doe");
  $g_user{$username} = \@l_UserDetails;
};

setup_user_details('user1');