open (FILE, '<', 'hostfile') or die "Could not open 'hostfile' : $!"; my @SERVERS = ; close FILE; foreach $server (@SERVERS) { #print OUTPUT "[$server]\n"; chomp($server);