perl next 循环

v-dev-redis01:/root# cat x.pl
open (LOG ,"<","/root/x.out");
while (<LOG>) {
chomp;
next if ($_ eq '192.168.32.5');
print "\$_ access $_\n";
}
v-dev-redis01:/root# cat x.out
192.168.32.1
192.168.32.2
192.168.32.3
192.168.32.4
192.168.32.5
192.168.32.6
192.168.32.7
v-dev-redis01:/root# perl x.pl
$_ access 192.168.32.1
$_ access 192.168.32.2
$_ access 192.168.32.3
$_ access 192.168.32.4
$_ access 192.168.32.6
$_ access 192.168.32.7