if($file=~/^\d/)
{
   chomp $file;
   $dlist[$x]=$file;
}