It seems to me you're asking how to simplify these lines:

foreach my $line (@port) {
    my @PORTS = split('\n', $line);
        foreach my $str (@PORTS){
            ...
        }
    }
}
[download]

Perhaps something like this:

for my $str ( map { split /\n/ } @port ) {
    ...
}
[download]