truptivk:

A few notes:

• On line 17, you needn't use the scalar operator on the array as you're assigning to a scalar already.
• You could simplify the first section of code by combining loops and removing unnecessary temporary variables, something like:

my $configFile = "servers.conf";
my (@allServers, @bigArray);

# Process file line by line rather than reading all lines into an arra
+y
# and iterating over the array
open (DAT, $configFile);
while (my $str = <DAT>) {

    # the action of your first loop:
    next if $str =~ /^\w/;

    # the action of your second loop:
    my ($server, $ip) = split ("=", $str);
    $ip =~ s/^\s+//;
    $ip =~ s/\s+$//;

    push (@bigArray, $ip . "," . $server);
    $hashArray{$ip} = $server;
}
close DAT;

my $size = @allServers;
[download]

...roboticus