while (<IN>) {
       chomp;
       my %rec;
       @rec{@fields} = split /:/;
       $users{$rec{name}} = \%rec;
   }