A while loop would be the solution instead that for loop.

while(<ENABLE>){
  my $server = $_;
  # $_ is the var that contians the whole line
  # but $_ is ambiguous so we'll give it the $server

  chomp $server; #remove newline

  #other stuff
}
[download]