Help for this page

Select Code to Download


  1. or download this
    my %months = qw(
       0 => Jan
       1 => Feb
       2 => Mar
);
  2. or download this
    print "$months{$month}\n";
Output = Jan