my $found = 0;
...
if ($found == 0){...

# or better:

if (! $found){...

# or for truth:

if ($found){...