#!/usr/bin/perl
use warnings;
use strict;
my @month=qw(Jan Feb Mar May Apr Jun Jul Aug Sep Oct Nov Dec);
Print @month;