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