The until loop inside foreach loop will result in infinite loop as for each iteration the $any will be having a single value, using until loop without any modification of the value will result in infinite loop.
If I am understanding it right, you are trying to push all lines before 'Dup' to @config and that after it to @live (after taking out other $cpu, $mem & $rvr_host). Here is one way of doing it:
-
foreach $any (@highway) {
-
if ($any =~ "CPU") {
-
$cpu = $any ;
-
} elsif ($any =~ "MEM") {
-
$mem = $any ;
-
} elsif ($any =~ "HOSTNAME") {
-
$rvr_host = $any ;
-
} else {
-
push @live,$any unless($any=~/Dup/) ;
-
if($any=~/Dup/) {@config=@live; @live=();}
-
}
-
}
-
