#!/usr/bin/perl
use warnings;
use strict;

my $hitlength;
my $prevalence;
my $prev_l;
my $prev_p ;

while(<>){