#!/usr/bin/perl -w

use strict;
my %coverage;
open(idcov,"<idcoverage4.txt");
while(<idcov>){
    my @ic=split;
    $coverage {$ic[0]}{$ic[1]}{$ic[2]}=$ic[3];
    if ($ic[3] >= 80 && $ic[2] >= 60){
	print $ic[0],"\t",$ic[1],"\t",$ic[2],"\t",$ic[3],"\n";
    }
}
