You're declaring the variable within the lexical scope of the while block, so it goes out of scope by the time you reach the conditional.

Try this instead:

my $found;
while ( my $file = readdir(DIR) ){
   $found = $file, last if $file=~/^myname\.doc$/i;
}
closedir(DIR);
print "Found: $found" if $found;
[download]