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