c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"foreach my $filename (qw(a b c)) {
   dd 'before while loop, $filename is', $filename;
   while ($filename) {
     dd 'in while loop, $_ is', $_;
     last;
     }
   }
"
("before while loop, \$filename is", "a")

("in while loop, \$_ is", undef)

("before while loop, \$filename is", "b")

("in while loop, \$_ is", undef)

("before while loop, \$filename is", "c")

("in while loop, \$_ is", undef)