追記

ちなみに、上のMeCabのデータ構造はMeCabのfeatureの構造のツンデレ感をなくす為（嘘）に
適当な名前をつけただけですあしからず。

 25 sub parse_feature {
 26     my ($self, $feature) = @_;
 27
 28     # 品詞,品詞細分類1,品詞細分類2,品詞細分類3,活用形,活用型,原形,読み,発音
 29     my %feature;
 30     @feature{
 31         qw/
 32             class
 33             subtyping_1
 34             subtyping_2
 35             subtyping_3
 36             inflected_forms
 37             inflected_format
 38             prototype
 39             reading
 40             pronunciation
 41         /
 42     } = split(',', $feature );
 43
 44     return \%feature;
 45 }