for my $net (@net) {
    for (16..250) {
            local $_="$net.$_";
            warn "$_ not responding!\n" and next
              if !$p->ping($_);
            print;
        }
}