["東京県（都？）","千葉県","神奈川県"] が重複してるのがなんか嫌だね。

my @sentaku = (["東京県","千葉県","神奈川県"])x3;

とか短くできんのかな？