foreach my $port ( $startport .. $stopport ) {
    if # [ ... ] port offen
        # [ ... ]
        push @OPorts, $port;
    else { # port geschlossen
        # [ ... ]
    }
}