while($line=<INPUTR>){
    chomp $line;
	my ($freq,$gene) = split(/\t/, $line);
	next if (exists $hashfreq{$gene} and $hashfreq{$gene} >= $freq);
	$hashfreq{$gene} = $freq;
}