I'm working with a HoH right now in which each inner hash has the same keys. It occurred to me that perl has no const type. After poking through some code that my co-workers wrote, I realized the solution to creating a constant in perl is to write a subroutine that returns the string you want.

#!/usr/bin/perl
use strict;
my %foo;
my $key;

$foo{&KEY_NAME}="jon";
$foo{&KEY_OCCUPATION}="just another perl hacker";

sub KEY_NAME {
  return "Name";
}

sub KEY_OCCUPATION {
  return "Occupation";
}

foreach $key(keys %foo) {
  print "$key : " . $foo{$key} . "\n";
}
[download]