perl -l -e 'use constant FOO => "abc"; print %{{ FOO , "def" }}'