#!usr/bin/perl
use strict;


my $cfile = 'counties.csv';
my $yearcount = 0;

open(CFH, "<", $cfile) or die "Can't open $cfile to read: $!\n";

<CFH>;

while (my $info = <CFH> ) {
    chomp($info);
    my ($fname, $sname, $email, $county, $dob) = split(/,/, $info);
    my ($date, $month, $year) = split(/\//, $dob);
    my $yearcount = 0;

    if ($year >= 2000){
        $yearcount++;
   }
}
print "$yearcount people were born since year 2000\n";

close(CFH) or warn "Couldn't close file $cfile\n";