#!/usr/bin/perl -w
use strict;

open HOSTLIST, "< hosts" or die $!;
my @hosts = <HOSTLIST>;
chomp @hosts;
close HOSTLIST or die $!;

for my $host (@hosts) {
    open INQ_ET, "< $host" or warn $! and next;
    for (<INQ_ET>) {
        # do stuff
    }
    close INQ_ET;
}