By the same reasoning:

perl -e 'use constant foo => { a .. z }; print "$k : $v \n"  while ($k
+,$v) = each %{&foo};'
[download]

And this works, but misses the point I guess:

perl -e 'use constant foo => { a..z }; *foo_h=foo; print "$k : $v \n" 
+while ($k,$v) = each %foo_h;'
[download]