use strict;

my %users;
open USERS, "<users.txt";
while (<USERS>) {                          
  chomp;
  my @line = split / /;     
  $users{shift @line} = \@line;
}
close USERS;