Ahem! You're testing param('$neg') (ie a parameter with the four character name $neg), but resetting the param(-name=>"$neg") (ie. one of foo, bar or baz).

Change the quotes and the problem goes away.