Select Code to Download

use constant foo => { a .. z };;

...
g : h
i : j
o : p

[0] Perl> print "$k : $v" while ($k,$v) = each %{ +foo };;
w : x
...
g : h
i : j
o : p