use constant A => 12;
my %hash = ( (A) => 'twelve' ); # beautiful


##</code><code>##

m=Deparse
diff <(perl -MO=$m -e 'use constant A => 12; my %hash = ( A() => "twelve")') \
     <(perl -MO=$m -e 'use constant A => 12; my %hash = ( (A) => "twelve")')


##</code><code>##

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')


##</code><code>##

m=Concise
diff <(perl -MO=$m -e 'use constant A => 12; my %hash = ( A() => "twelve")') \
     <(perl -MO=$m -e 'use constant A => 12; my %hash = ( (A) => "twelve")')

7c7
< 4           <$> const[IV 12] s*/FOLD ->5
---
> 4           <$> const[IV 12] sP*/FOLD ->5


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,