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