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

my $oid = '1.3.6.1.2.1.25.2.2.0';
my @ips = qw(127.0.0.1 127.0.0.1);
my $community = 'public';

foreach my $ip (@ips) {
    chomp(my @array = `snmpwalk -v2c -c $community $ip $oid`);
}