use constant KEY => "key";

my %h = ( +KEY => "data" , KEY() => "data",);

$, = "\n";
print "Perl vers: $]", keys %h;


##</code><code>##

Perl vers: 5.006001
KEY
key