use strict;

my $date;
my $lastdate;

while (($date = <DATA>) or $lastdate){
   $lastdate ||= $date;
   next if $lastdate eq $date;
   # print $lastdate report here
   print "Line $. ends date $lastdate";
   $lastdate = $date;
}