print Dumper(\@out);

##</code><code>##

foreach my $line (@out) {
   next unless $line =~ /port_number/; # skip unrelevant lines
   print $line;
   # extract or search for ESTABLISHED
}