[ruby-list:48210] REXMLで無限ループがとまりません

お世話になっております。成田と申します。
REXMLを使ってみようかなと思って
下記のようなソースを作ったんですが
見事無限ループしてます。
Rubyはど素人です。
何が悪いのか教えていただけると助かります。

ソースは以下です
#!ruby -Ke
require 'rexml/document'
require 'net/https'

sqldata =[]
sqldata=[["1", "4", "", "10001", "20110710", "900", "1"], ["1", "1", "", 
"10001", "20110710", "1200", "1"]]
p sqldata

i=0
while i<sqldata.length

yoyakuday_tmp =sqldata[i][4].unpack("a4a2a2")
yoyakuday = yoyakuday_tmp[0]+"-"+yoyakuday_tmp[1]+"-"+yoyakuday_tmp[2]
yoyakutime_tmp = sprintf("%04d",sqldata[i][5]).unpack("a2a2")
yoyakutime = yoyakutime_tmp[0]+":"+yoyakutime_tmp[1]+":00"

doc = REXML::Document.new
doc << REXML::XMLDecl.new('1.0', 'UTF-8')

# add_element は追加した子要素を返す
feed = doc.add_element("record", {"name" => "appointreq"})
feed.add_element("string", {'name' => 'Patient_ID'}).add_text sqldata[i][1]
feed.add_element("string", {'name' => 'Appointment_Date'}).add_text 
yoyakuday
feed.add_element("string", {'name' => 'Appointment_Time'}).add_text 
yoyakutime
feed.add_element("string", {'name' => 'Appointment_Id'  }).add_text ""
feed.add_element("string", {'name' => 'Department_Code' }).add_text "01"
feed.add_element("string", {'name' => 'Physician_Code'  }).add_text 
sqldata[i][3]
feed.add_element("string", {'name' => 'Medical_Information'}).add_text  "01"
feed.add_element("string", {'name' => 'Appointment_Information'}).add_text 
"01"
feed.add_element("string", {'name' => 'Appointment_Note'}).add_text  ""
print doc.root
end

ご指導お願いいたします。
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
　成田　恭一　株式会社ネットワーク北海道
　　　　 開発室　札幌市西区二十四軒1-4加森ビル⑧３階
　　　　　　　℡011-614-9130   fax[phone]
　　　　　　　 http://www.ntwork.co.jp
               mail：[e-mail]
　　　　 本　社　札幌市西区西町南１７−２−４０
　　　　　　　℡011-661-6618　 fax[phone]
         東京支店 東京都新宿区西新宿６−１０−１
　　　　　　　　　　日土地新宿ビル ８階
　　　　　　　　　 ℡ 03-5325-3370
∞∞∞∞∞∞∞ Network Hokkaido Inc. ∞∞∞∞∞∞