my @IPs = map { my $f6 = (split m/\s+/, $_)[5]; ( split m/:/, $f6)[0] } qx/ss -4ntuh/;