#!/usr/bin/perl
use warnings;
use strict;
my ($prev_l, $prev_p) = ("", "");
while(<>){
  my $hitlength;
  my $prevalence;
 
  my $line = $_;  
  chomp $line;
  if ($line =~ /^[\d]/){
    my @hitline = split(/,/ , $line);
    $hitlength  = $hitline[4];
    $prevalence = $hitline[65];
    if( $hitlength  == $prev_l and
        $prevalence == $prev_p ){
        next;
    } else {
      print "$line\n";    
    }
    $prev_l = $hitlength;
    $prev_p = $prevalence;
  } 
}