while (<IN>) {
  chomp;
  my ($name) = /([^:]+)/;
  @{ $users{$name} }{ @fields } = split /:/;
}

##</code><code>##

chomp(@{$users{(/([^:]+)/)[0]}}{@fields} = split /:/) while <IN>;