#! perl
use strict;
use warnings;
use Tie::Cycle;

my @oids = (1 .. 370);

tie my $oid, 'Tie::Cycle', \@oids;

my $answer = 'Y';

while ($answer !~ /N/i)
{
    print "Starting iteration\n";

    print "probe $oid\n" for 1 .. 50;

    print "Continue? ";
    $answer = <STDIN>;
}