$ perl -wle 'use constant X => "x"; my %x = (x => 42); print $x{X}'
Use of uninitialized value in print at -e line 1.

$ perl -wle 'use constant X => "x"; my %x = (x => 42); print $x{+X}'
42