Select Code to Download

splice(@ips, 15); 
for $i ( 0 .. $#ips ) { 
...
         number 12 is  192.229.14.7 231 0.09%,
         number 13 is  192.131.192.206 227 0.08%,
         number 14 is  192.161.31.247 172 0.06%,

my @newips = (); 
my ($x, $y);
...
for ($x = 0; $x < 15; $x++) { 
   push @newips, $ips[$x][$y]
}

my @num = ();
$x = 0;  
for ($y = 0; $y < 15; $y++) {
   push @num, $ips[$x][$y]
}