#!/usr/bin/perl
use POSIX 'strftime';

use strict;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my $curr_mth = sprintf "%2d", strftime('%m', $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

my @month_name = qw(January February March April May June July August September October November December);

while (<DATA>) {
         my %by_month = split ' ', $_;
        for my $m ( $curr_mth .. $#month_name) {

                if ( exists ( $by_month{$month_name[$m]} ) ) {
                        print "$by_month{$month_name[$m]} EXISTS for $month_name[$m] Row $.\n";
                } else {
                        print "$by_month{$month_name[$m]} DOES NOT EXISTS $month_name[$m] for row $.\n";
                }
        }
}
__DATA__
February 1 March 5 July 4 August 5 October 7
January 3 March 4 April 6 May 5 June 7 July 8 August 10 September 4 October 9 November 11 December 8
March 2 June 3 August 1 December 7