foreach my $n (1..$num){
        my $corebrip = $server->{'CoreLanIP_'.$n.'__1'} ;
        my $brmask  = $server->{'CoreLanNetmask_'.$n} ."\n";
        if ($corebrip eq $br_ip){

        print join ("/", $br_ip, $brmask);