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'};
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'};