#!/usr/bin/perl -w

use strict;

use CGI qw/:standard/;
use constant EARL => 'MEL';
use constant HARRIS => 'BROOKS';

my @a = map { lc($_) } (EARL, HARRIS);

my $b = { EARL.HARRIS => 55 };

print join(' ', @a)."\n";
print join(' ', keys %{ $b })."\n";