> perl -we 'use constant K => 0;$array[0]="value";print $array[K],"\n";'
value
> perl -we 'use constant K => KEY;$hash{"KEY"}="value";print $hash{K},"\n";'
Use of uninitialized value in print at -e line 1.