Making the variables lexical variables would likely also help:

use strict;

my @IPs;
my $ip;
[download]