@sheets = map { $_ if /\.xls$/ } readdir(DIR);

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------