sub setManagers() {

        my $getInputFlag = 1;
        my $writeFileFlag = 1;
        my $mCounter = 0;

##</code><code>##

        my $ans = &promptUser("Do you wish to configure SNMP Managers on $var? ", "yes");

##</code><code>##

        if ($ans =~ /^[n]o?/i) {

##</code><code>##

          if ($address =~ /^(([3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])\.){3}([3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])$/)

##</code><code>##

(?:[3-9]\d?|[01]\d{0,2}|2\d?|2[0-4]\d|25[0-5])

##</code><code>##

                $managers[$mCounter]{address} = $address;
                $managers[$mCounter]{port} = $port;
                $managers[$mCounter]{version} = $version;
                $managers[$mCounter]{community} = $community;

##</code><code>##

@{ $managers[$mCounter] }[qw/address port version community]=
  ($address $port $version $community);

##</code><code>##

                my $numOfManagers = scalar(@managers);

                print FILE "manager.total=$numOfManagers\n";

                for (my $i=0; $i<$numOfManagers; $i++) {

##</code><code>##

for my $i (0..$#managers) { ... }

##</code><code>##

for my $item (@managers) { ... }