my $looking = 1;
...
$looking = 0;