$ perl -MO=Deparse -e '%a=($bob => "foo")'
(%a) = ($bob, 'foo');
-e syntax OK