@sheets = grep{/\.xls$/}readdir(DIR);