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

my @oids = ( '.1.2.3.4.2.1.3.0', '.1.23.4.2.1.3.4.0');

my $oid = undef;
my $ct = 0;
foreach $oid (@oids)
  {
  if ($ct > 50) { print "PROBED CT: \"$ct\" OIDS. SLEEPING X\n"; sleep 10; $ct = 0; }

  print "PROCESSING OID: \"$oid\" \n";

  $ct += 1;
  }