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";
            }
        }