# assuming @users contains your records of the text file
my $userinfo;

foreach my $user (@users)
{
   my ($first, $last) = split(/\t/, $user);
   $userinfo{$first} = $last;
}