{ 
   my $mn = 3;  
 
   my $month = (qw(January Feburary March April May June July August September October November December))[$mn]; 
 
   print $month, "\n"; 
} 

##</code><code>##

BEGIN {
  my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  sub month_name_for {
    my $number = shift;
    die if $number < 0 or $number > $#month_names or $number != int($number);
    $month_names[$number];
  }
}