Constants

http://perldoc.perl.org/constant.html

use constant US_COINS => {
    QUARTERS => 25,
    DIMES    => 10,
    NICKELS  => 5,
    PENNIES  => 1
};

for my $name (keys US_COINS)
{
    say $name;
}

say US_COINS->{'QUARTERS'};