Good point - I was recently similarly burned by something like this:

use constant FOO => 'my hash key';

my %hash = ('my hash key' => 42);

print "Wahoo!\n" if exists $hash{FOO};
[download]

Larry