#!/usr/bin/perl -w use strict; print qw( January February March April May June July August September October November December )[-1];