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