Tie :: Fileを__DATA__に使用すると予期しない動作が発生する

古い質問に巧みなやり方で答えようとすると、成功するかどうかを知らずに、これを試みようとしていました。

#!/usr/bin/env perl

use strict;
use warnings;

use Tie::File;
tie( my @data, 'Tie::File', \*DATA ) or die "Cannot tie DATA";

foreach ( @data ) {
    print;
}

foreach ( @data ) {
    print scalar reverse;
}


__DATA__
one
two
three
four
five
six

私はそれが働くこと、または死ぬことを期待しました。私が得たものは予想外でした。

#!/usr/bin/env perluse strict;use warnings;use Tie::File;tie( my @data, 'Tie::File', \*DATA ) or die "Cannot tie DATA";foreach ( @data ) {    print;}foreach ( @data ) {    print scalar reverse;}__DATA__onetwothreefourfivesixlrep vne/nib/rsu/!#;tcirts esu;sgninraw esu;eliF::eiT esu;"ATAD eit tonnaC" eid ro ) ATAD*\ ,'eliF::eiT' ,[email protected] ym (eit{ ) [email protected] ( hcaerof;tnirp    }{ ) [email protected] ( hcaerof;esrever ralacs tnirp    }__ATAD__enoowteerhtruofevifxis

どのように __ DATA __ を Tie :: File に結び付けようとしていたのですが、それはスクリプトを結びつけ、 chomp