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 $_
";
}
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