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

##</code><code>##

if ($KEY =~ /Host/) { $HOST = $VAL; }
elsif ($KEY =~ /Connection time/) { $CONNTIME = $VAL; }
elsif ($KEY =~ /Connected host/) { ... }
...

##</code><code>##

splice(@PORTS, 0, 3);