if (&socket($host, $i) eq "True") {
    print "\t* Port $i; Open!\n";
    $OPorts[$a] = $i;
    $a++;
}
else { print "\t* Port $i; Closed!\n" }