>>445
スペースがないのが気になる。
open IN, "data.txt" or die "data.txtをオープンできません：$!\n";

my する気がないのなら、、、
1 while push @xml1,<IN>;