open HOSTS, '<', 'hostnames.txt' or die "Cant open hostnames.txt\n";

while (my $host = <HOSTS>) {
    chomp($host);
    check_ports($host,$timeout,\%porthash);
    # Do other processing stuff here
}