for (@PORTS) {
  ($KEY, $VAL) = split(/:/);
  if ($KEY =~ /Host/) { $HOST = $VAL; }
  elsif ($KEY =~ /Connection time/) { $CONNTIME = $VAL; }
  elsif ...
}