open( POCUS, "/home/BioGeek/results_100.out" ||die  $!\n";

##</code><code>##

$results[$i]->[1] ne $results[ ( $i + 1 ) ]->[1]

##</code><code>##

    my $disease_name_pocus = 'something';  
    # dont' need array, we only ever use the first value anyway

    open POCUS,"<","/home/BioGeek/results_100.out" 
         or die  "can't open /home/BioGeek/results_100.out: $!\n";
    open MARKER, ">","marker_list.txt" 
         or die "Can't open marker_list.txt: $!";

    my $lastline;
    while (<POCUS>) {
        chomp; # remove newline
        next unless /\S/; # only use lines that contain something else than spaces

        my @result = [split];
        next unless $result[0] eq $disease_name_pocus;

        next if (defined $lastline and $lastline eq $result[1]);
        $lastline = $result[1];

        print MARKER "$result[1]\t$result[4]\n";
    }
    close POCUS;
    close MARKER;