my $previous = <IN>;
while (<IN>) {
   # compare $_ and $previous here


   $previous = $_;
}