for ( my $i = 0 ; $i < scalar @results ; $i++ ) {
        if ( $results[$i]->[0] eq $disease_name_pocus[0] ) {
            next unless $results[$i]->[1];
            if ( $results[$i]->[1] ne $results[ ( $i + 1 ) ]->[1] ) {
                print MARKER "$results[$i]->[1]\t$results[$i]->[4]\n";
            }
        }