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