foreach my $val (@port_list) {
  $val=~s/\s+$//;
  $val=~s/^\s+//;  # add
  print "[$val]\n";
.
.
.