連想配列
Perlの連想配列みたいなのが使えます。
サンプルはこちら
例によってめんどくさくなってきた。
ソースを見て納得してください。