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