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