($user, $foo{$user}) = split /:/, $_, [2];