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