my @allfiles = readdir THEDIR;
closedir THEDIR;
my @filtered_files = grep /^xxxxx/, @allfiles;
foreach my $file...