foreach my $s (@ts) {
  $port = substr($s,0,1) + 1;
  print "\nPort: $port\n";
}
foreach my $s (@hs) {
  $port = substr($s,0,1) + 1;
  print "\nPort: $port\n";
}