CSVの扱いはPerl向きじゃない気がする。