freebie:~ 824> perl -MO=Deparse,-p,-q foo                              14:05:06
sub HARRIS () {
    package constant;
    $scalar;
}
sub EARL () {
    package constant;
    $scalar;
}
(my(@a) = map({lc($_);} 'MEL', 'BROOKS'));
(my $b = {('MEL' . 'HARRIS'), 55});
print((join(' ', @a) . "\n"));
print((join(' ', keys(%{$b;})) . "\n"));
foo syntax OK