vnwlist: $VAR1 = [
          '192.168.165.0/255.255.255.0
'
        ];
vnwlist: $VAR1 = [];
vnwlist: $VAR1 = [];
vnwlist: $VAR1 = [];
vnwlist: $VAR1 = [];
vnwlist: $VAR1 = [];
vnwlist: $VAR1 = [];
vnwlist: $VAR1 = [];
 
##</code><code>##

brnwlist: $VAR1 = [
          '192.169.73.0/255.255.255.0
'
        ];
brnwlist: $VAR1 = [];
brnwlist: $VAR1 = [];
brnwlist: $VAR1 = [];
brnwlist: $VAR1 = [];
brnwlist: $VAR1 = [];

##</code><code>##

        for my $n (1..$num){
        $corebrip = $server->{'CoreLanIP_'.$n.'__1'} ;
        if (not $corebrip) {
            print "CoreLanNum $n - No value for CoreLanIP_".$n."__1\n";
        next;
        }
#       print "CoreLanNum $n - brip: $brip, corebrip: $corebrip\n";
        $brmask  = $server->{'CoreLanNetmask_'.$n} . "\n" ;
        if ( $corebrip eq $brip ){
        $brlist = join ("/", $brip, $brmask) ;
        $brlist =~  s/.[0-9]*\//.0\//g;
        push( @brnwlist, $brlist) unless $seen{$brlist}++;
        }
        else {
#       print "coreip doesnot matches brip\n";
        }
    }
        print "brnwlist: ", Dumper(\@brnwlist);

        next if @brnwlist;
        my @vnwlist;
        my $vnum = $server->{CoreVlanNum};
        for my $i (1..$vnum){

        my $vlanip = $server->{'CoreVlan_IP_'.$i} ;
        if (not $vlanip) {
#       print "CoreVlanNum $i - No value for CoreVlan_IP_$i\n";
            next;
        }
#       print "CoreVlanNum $i - brip: $brip, vlanip: $vlanip\n";
        my $vmask  = $server->{'CoreVlan_Netmask_'.$i} . "\n";

        if ($vlanip eq $brip){
        my $vlist = join ("/", $brip, $vmask) ;
        $vlist =~  s/.[0-9]*\//.0\//g;
        push @vnwlist, $vlist unless $seen{$vlist}++;

        }
     }
         @vnwlist = grep (/\S/, @vnwlist);
         print "vnwlist: ", Dumper(\@vnwlist);
  }
}