$ perl -MO=Deparse -e 'use constant X=>[1]; print X->[0]++; print X->[0]++'
use constant ('X', [1]);
print [1]->[0]++;
print [1]->[0]++;
$ perl -le 'use constant X=>[1]; print X->[0]++; print X->[0]++'
1
2