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