require v5.8;
use strict;
use warnings;

my %XX;

$XX{a}= 1;
$XX{-b}= 2;
$XX{+c}= 3;  #bareword 'c' not allowed.  Interpreted as + applied to function call c().

print (join (", ", keys (%XX)), "\n");