foreach $file (glob("files/*.txt"))
{
push(@found,$file);
}