Select Code to Download

require v5.8;
use strict;
...
$XX{+c}= 3;  #bareword 'c' not allowed.  Interpreted as + applied to f
+unction call c().

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