#!/usr/bin/perl
use warnings;
use strict;

my @oids = (1 .. 370);
while (@oids) {
    print "Starting iteration\n";
    my @process = splice @oids, 0, 50;
    print "probe $_\n" for @process;
}