lib/phone/read.plの２２０行目
while (<IN>) {
　　　　↓
for (reverse <IN>){

ってな感じじゃないかな