すいません、>>854 において、名前欄を書き間違えました。ただしくは >>847でした。

あと、
>>850 さん
＞> $list{sta_kanji} = "春日部";　　　#駅名を漢字で
＞ここは、$list[0]->{sta_kanji} = "春日部"; の間違いか？
いえ、間違いというか、その直後にpush (@list, \%list);してるので。
（@listと%listがややこしかったですね、すいません）