open my $fh, '<', $configFile or die "Can't open '$configFile' for reading: $!"; my @allServers; while (<$fh>) { push (@allServers, $_) if /^\w/; } close $fh or warn "Error while closing file: $!";