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

[0] Perl> print "$k : $v" while ($k,$v) = each %{ foo() };;
w : x
e : f
a : b
m : n
s : t
y : z
u : v
c : d
k : l
q : r
g : h
i : j
o : p

##</code><code>##

[0] Perl> print "$k : $v" while ($k,$v) = each %{ +foo };;
w : x
e : f
a : b
m : n
s : t
y : z
u : v
c : d
k : l
q : r
g : h
i : j
o : p