1  #!/usr/bin/perl -w
2
3  my $filename = "data.txt" ;
4  my %hash=();
5
6  open(FILEHANDLE,"<$filename") || die "Cannot open   $filename!";
7  while(my $line=){
8  chomp $line;
9  $hash{$1}++ if ($line =~ /.*:(.{4})\/.{2}\/.{2}:.*$/);
10  }
11  close(FILEHANDLE);
12
13  print "In the Year 2002 you checked $hash{ 2002 } exams! \n";