opendir($dh, "$working_directory"
@files = grep { /\.csv$/i } readdir($dh)