But it's a Rosetta Stone fire-and-forget demo script and I doubt we'd see any other function added.

Or do you expect a need for sumerian_to_maya() soon? ;-)

> (BTW, I miss C++'s const keyword when coding in Perl).

why not ...

use Readonly;
Readonly my %has => (key => value, key => value, ...);
[download]

If that's too ugly, we could try to define an attribute to do so.

my %has :ro = (key => value, key => value, ...);