Dru,

A classic case of off by one. The problematic line is #31:

for( $x = 0; $x < 15; $x++ )
[download]

your @ips array only has 14 elements in it (0 through 13). Try changing line #31 to:

for( $x = 0; $x < $#ips; $x++ ) {
[download]

or even more perl idiomatic:

foreach( @ips ) {
   push @newips, $_->[0];
   push @attempts, $_->[1];
}
[download]

-derby