my $previous_line;
while (my $current_line = <$DATA>) {
     print $OUT $current_line unless $current_line eq $previous_line;
     $previous_line = $current_line;
}