#!/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";
}