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