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