m=Terse
diff <(perl -MO=$m -e 'use constant A => 12; my %hash = ( A() => "twelve")' \
       | perl -pe 's/0x\w+/X/g') \
     <(perl -MO=$m -e 'use constant A => 12; my %hash = ( (A) => "twelve")' \
       | perl -pe 's/0x\w+/X/g')