__DATA__の再利用

すいません、お礼にしか書けなくなってしまったので、こちらに書きます。

seekをどこに入れたらいいのかわからなかったので、
コード1のようにすると、結果1になりました。
コード2だとaaa=''の「'」の中に、ソースコード全体が入りました。
なぜでしょうか？

---コード1-----------------------------------
#!/usr/bin/perl

$str = "DATA";

@aaa = &test($str);
print "aaa='@aaa'\n";

sub test($){

$instr = @_[0];

#$fpos_top_of_instr = tell $instr;

foreach (<$instr>){
print;
}

#seek $instr, $fpos_top_of_instr, 0;
#seek $instr, 0, 0;

foreach (<$instr>){
seek $instr, $fpos_top_of_instr,0;
return <$instr>;
print;
}


}

__DATA__
1
2
3

---結果1-----------------------------------
1
2
3

aaa=''

---コード2-----------------------------------
#!/usr/bin/perl

$str = "DATA";

@aaa = &test($str);
print "aaa='@aaa'\n";

sub test($){

$instr = @_[0];

#$fpos_top_of_instr = tell $instr;

foreach (<$instr>){
print;
}

#seek $instr, $fpos_top_of_instr, 0;
#seek $instr, 0, 0;

foreach (<$instr>){
print;
}
seek $instr, $fpos_top_of_instr,0;
return <$instr>;


}

__DATA__
1
2
3

貴重な情報をありがとうございます。
tellもseekも知りませんでした。
ということは基礎がまだ身についていないということですね。
初心者の領域を脱してないのは実感していますけど。
DATAを再読み込みするのは一般的じゃないんですね。
確かにデータをソースのファイルに入れるのは、ちょっと考え方が変ですね。
こういう場合は__DATA__を使ってデータを入れるのが良い、という例があるといいんですが。