my($user, $var) = split /:/, $_, 2;
$foo{$user} = $var;