@sheets = grep{substr($_,-3) eq 'xls'}readdir(DIR);