Прошу помощи с perl

for argg in $ospfint
do
mask=`$snmp -$ver -c $community $ip 1.3.6.1.2.1.4.20.1.3.$argg | awk -F "IpAddress: " '{print $2}'`
net=`$ipcalc $argg $mask | grep Network: | awk '{print $2}'`
vhod=`$ipcalc $net /32 | grep Hostroute: | awk '{print $2}' | grep $arg`
if [ "$vhod" ]
then
gw=$argg
fi
done

net=`$ipcalc $argg $mask | grep Network: | awk '{print $2}'`
==
net=`$ipcalc $argg $mask | awk '/Network:/{print $2}'`

#!/usr/bin/perl -w
use strict;
use SNMP;
use Data::Dumper;
use JSON;


my @json        = ();
my $idx         = 0;

die "Usage: $0 <host> <port> <community> [regex]" if scalar @ARGV < 3;
my $host = $0 =~ /.*\/(.*)/;

my $REGEX = $ARGV[3] ? $ARGV[3] : undef;
my $sess = new SNMP::Session(
    DestHost => "$ARGV[0]:$ARGV[1]",
    Community => "$ARGV[2]",
    UseNumeric => 1,
    NonIncreasing => 1,
    UseLongNames => 1,
    Version => "2c",
    Timeout => 8 * 1000000,
    Retries => 1 );
die $sess->{ErrorStr} if ($sess->{ErrorNum});

my ($ospfNbrIpAddr) = $sess->bulkwalk(0, 100, ['.1.3.6.1.2.1.14.10.1.1']);
die $sess->{ErrorStr} if ($sess->{ErrorNum});

foreach(@{$ospfNbrIpAddr}) {
#    print Dumper($_);

    my $ip = "${$_}[2]";

##################
my ($ospfint) = $sess->bulkwalk(0, 100, ['.1.3.6.1.2.1.14.7.1.1']);
die $sess->{ErrorStr} if ($sess->{ErrorNum});

foreach(@{$ospfint}) {
    #print Dumper($_);
    my $ospfip = "${$_}[2]";
    my $netmask = $sess->get([".1.3.6.1.2.1.4.20.1.3.$ospfip"]);
#print "$ospfip $netmask\n";
####### О Я Х.З, чё  тут делать дальше :( 
#### бла-бла-бла,
## gw = бла-бла
}
##################

    my ($index) = $sess->get([".1.3.6.1.2.1.4.20.1.2.$gw"]);
    my ($ifalias) = $sess->get([".1.3.6.1.2.1.31.1.1.1.18.$index"]);
    my ($status) = $sess->get([".1.3.6.1.2.1.14.10.1.6.$ip.0"]);
    my ($ifdescr) = $sess->get([".1.3.6.1.2.1.2.2.1.2.$index"]);
    my ($ifspeed) = $sess->get([".1.3.6.1.2.1.2.2.1.5.$index"]);
    
    $json[$idx] = { '{#IP}' => $ip, '{#GW}' => $gw, '{#SNMPINDEX}' => $index, '{#IFALIAS}' => $ifalias, '{#STATUS}' => $status, '{#IFDESCR}' => $ifdescr, '{#IFSPEED}' => $ifspeed/1000000};
    $idx++;
}

print "{\"data\":";
print to_json(\@json, {ascii => 1, pretty => 1});
print "}\n";

ipmask2net ()
{
    local net_str_ref="$1" ip_str="$2" mask_str="$3"
    local a b c d hosts mask net abcd

    IFS='.' read a b c d <<< "$ip_str"

    (( ip = a * 256 ** 3 + b * 256 ** 2 + c * 256 + d,
       hosts = 2 ** (32 - mask_str),
       mask = 2 ** 32 - hosts,
       net = ip & mask ))

    for i in {3..0}; do
        (( abcd[i] = net / 256 ** i,
           net %= 256 ** i ))
    done

    declare -g $net_str_ref="${abcd[3]}.${abcd[2]}.${abcd[1]}.${abcd[0]}/${mask_str}"
}

$ ipmask2net net "10.200.70.92" "22"
$ echo "$net"
10.200.68.0/22