foreach構文をwhile構文で実現したい。

質問

下記にありますforeach構文をwhile構文で実現しようと試みているのですが
何故か同じように実現できず、無限ループになっているような気がします。
どこに問題があるのか当方ではわからない為、どなたかご教授いただけませんでしょうか。
------------------------------
$ cat list1.txt
01<>ああああ
01_01<>あAAA
01_02<>あBBB
01_03<>あCCC
01_04<>あDDD
02<>いいいい
02_01<>いAAA
02_02<>いBBB
02_03<>いCCC
02_04<>いDDD
------------------------------
■成功版
open(IN, "<list1.txt");
@datas = <IN>;
close(IN);
open(OUT, ">date.txt");

foreach (@datas) {
chomp;
($a, $b) = split(/<>/, $_);#$_は省略できます。

print OUT "'$a'=>'$b',\n";
}
close(OUT);

■取組版
open(IN, "<list1.txt");
@datas2 = <IN>;
close(IN);
open(OUT, ">date2.txt");

while (@datas2) {
s/^/'/;
s/<>/'=>'/;
s/$/',/;
print OUT;
}
close(OUT);

回答No.1

guci-ok · ベストアンサー

while (@datas2) {
　$_ = shift @datas2;
　...
では？

お礼

shiftでずらせばよかったんですね。
ありがとうございました。

回答No.2

BLUEPIXY

open(IN, "<list1.txt");
open(OUT, ">date2.txt");
while (<IN>) {
s/^/'/;
s/<>/'=>'/;
s/$/',/;
print OUT;
}
close(OUT);
close(IN);
#にするとか

お礼

close(IN);を最後にもってきても良いんですね。
参考になります。ありがとうございました。