sub readPorts(\%) {
 die "Incorrect number of args to readPorts\n" unless @_ == 1;
 my $portHash = shift;
 
  while (<DATA>) {
  my ($port, $sname, $rem) = split("\t");
  push (@{$portHash->{$port}},$sname . "\t" . $rem);
 }
}