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