#! /usr/bin/perl 
print "From year\n";
$f_year=<>;
print "From month\n";
$f_mon=<>;
print "To year\n";
$t_year=<>;
print "To month\n";
$t_mon=<>;
$f=sprintf("%s %s",$f_year,$f_mon);
$t=sprintf("%s %s",$t_year,$t_mon);
%hash=('Jan',1,'Feb',2,'Mar',3,'Apr',4,'May',5,'Jun',6,'Jul',7,'Aug',8,'Sep',9,'Oct',10,'Nov',11,'Dec',12);
$/="kb.\n";
open FH,"<a.txt";
$com="2001 Feb";
while(<FH>){
		my @tmp=split("\n",$_);
		my @arr1=split(" ",$tmp[0]);
		$id=$arr1[1];
		my @arr2=split(" ",$tmp[1]);
		$day=sprintf("%s %s",$arr2[$#arr2],$arr2[$#arr2-3]);
		print $id,"\n" if (_compare($day,$f)==1 && _compare($day,$t)==-1);
}
sub _compare{
	my($a,$b)=(@_);
	my @arr1=split(" ",$a);
	my @arr2=split(" ",$b);
	if ($arr1[0]>$arr2[0]){return 1;}
	if ($arr1[0]<$arr2[0]){return -1;}
	if($arr1[0]==$arr2[0]){
		if ($hash{$arr1[1]}>$hash{$arr2[1]}){return 1;}
		if ($hash{$arr1[1]}<$hash{$arr2[1]}) {return -1;}
		if ($hash{$arr1[1]}==$hash{$arr2[1]}) {return 0;}
	}
}