Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $hash1->{ $split[0] } = $split[1];
print $hash1->{MONTH} . "\n";

$ ./962633.pl
January
MONTH January
January