my @disease_name_pocus = @_;
open( POCUS, "/home/BioGeek/results_100.out" ||die  $!\n";
    while (<POCUS>) {
        push @results, [split];
    }

    open( MARKER, ">marker_list.txt" ) || die $!;
    for ( my $i = 0 ; $i < scalar @results ; $i++ ) {
        if ( $results[$i]->[0] eq $disease_name_pocus[0] ) {
            if ( $results[$i]->[1] ne $results[ ( $i + 1 ) ]->[1] ) {
                print MARKER "$results[$i]->[1]\t$results[$i]->[4]\n";
            }
        }


##</code><code>##

lca             ENSG00000179314         6       100       0.0030279        7        3       23 ;
lca             ENSG00000179314         6       100       0.0030279        7        3       23 ;
lca             ENSG00000179314         6       100       0.0030279        7        3       23 ;
lca             ENSG00000176287         6       100               0       17        3       23 ;
lca             ENSG00000176287         6       100               0       17        3       23 ;
lca             ENSG00000176287         6       100               0       17        3       23 ;
lca             ENSG00000176287         6       100               0       17        3       23 ;
lca             ENSG00000176287         6       100               0       17        3       23 ;
lca             ENSG00000176287         6       100               0       17        3       23 ;
lca             ENSG00000161940         6       100      8.7149e-09        9        4       23 ;
lca             ENSG00000161940         6       100      8.7149e-09        9        4       23 ;
lca             ENSG00000161940         6       100      8.7149e-09        9        4       23 ;
lca             ENSG00000161940         6       100      8.7149e-09        9        4       23 ;
lca             ENSG00000161940         6       100      8.7149e-09        9        4       23 ;
lca             ENSG00000161940         6       100      8.7149e-09        9        4       23 ;
lca             ENSG00000108561         6       100     1.02585e-13       13        4       23 ;
lca             ENSG00000108561         6       100     1.02585e-13       13        4       23 ;
lca             ENSG00000108561         6       100     1.02585e-13       13        4       23 ;
lca             ENSG00000108561         6       100     1.02585e-13       13        4       23 ;