my @list_files;

for my $filename (@list_files)
{
}

##</code><code>##

my @list_files = readdir $dir;