for my $n (1..$num){
    my $ip = $server->{'CoreLanIP_'.$n.'__1'};
    if ($ip eq $br_ip){
      my $mask = $server->{'CoreLanNetmask_'.$n};

##</code><code>##

        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);
##</code><code>##

192.169.73.1/255.255.255.0
192.169.73.1/255.255.255.0
192.169.73.2/255.255.255.0
192.169.73.2/255.255.255.0
192.169.73.3/255.255.255.0
192.169.73.3/255.255.255.0
192.169.73.4/255.255.255.0
192.169.73.4/255.255.255.0
192.169.73.5/255.255.255.0
192.169.73.5/255.255.255.0
192.169.73.6/255.255.255.0
192.169.73.6/255.255.255.0