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