use constant KEY => "key";

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

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