@list = glob($dir .'/A*');