{CoreLanIP_1__1} ; my @mask = $server->{CoreLanNetmask_1} . "\n"; my @ip = split('\.', $lanip); my @newcoreip = join (".", $ip[0], $ip[1], $ip[2], 0); my $network = join("/", @newcoreip, @mask); push(my @networklist, $network) if ! $seen{$network}++; my $brlan = $server->{BRLAN} ; if ( $brlan eq "y" ) { my $brip = $server->{BR_IP}. "\n" ; my $corelanip = $server->{CoreLanIP_2__1} . "\n"; my @corelannum = $server->{CoreLanNum} ."\n" ; foreach $a (@corelannum) { for i in $a --> (stucked here) } } }