#!/usr/bin/perl -w

use strict;


open(EST,"<resultados2");

my %coverage;

while(<EST>){
    my @entries=split;
    $coverage{$entries[0]}{$entries[1]}{$entries[2]} = $entries[3];
    $entries[2] =~s/\%//;


    if ($entries[3] >= 80 && $entries[2] >= 60){

	print $entries[0],"\t",$entries[1],"\t",$entries[2],"\t",$entries[3],"\n";
    }
}