my $file;
while($file = readdir(DIR)) {
...

##</code><code>##

my $file;
while ($file = readdir(DIR))
{
   if($file =~ /\Amyname\.doc\z/i)
   {
         $bool = 1;
         last;
   }
}