Help for this page

Select Code to Download


  1. or download this
    %months = (
   Jan => [1,  '31'], Feb => [2,  ''  ], Mar => [3,  '31'],
...
# Get number of days in Jan
$days = $months{Jan}->[1];
  2. or download this
    # in numerical order
for ( sort { $a->[0] <=> $b->[0] } keys %months ) {

# or reversed
for ( sort { $b->[0] <=> $a->[0] } keys %months ) {