sl1 this is my line sl2 justanotherline ##

##

while (@array){
        open ("VN", ">", "$array[0].tmp");
        open(my $config, "<", $array[0]);
        my @change = <$config>;
                for (my $i=0; $i<=$#change; $i++){
                        if ($change[$i] =~ /\b$ip\b/){
                        $change[$i + 1] = $nc ."\n";
}