$pid=open3($wtr, '>&reader', $err, $cmd);
    waitpid($pid, 0);

    my %Results=();
    while(<$rdr>){
        chomp;
        @temp=split(/\t/);
        if(!exists($Results{$temp[0]}) || $Results{$temp[0]}<$temp[10]){
            $Results{$temp[0]}=$temp[10];
        }
    }