The difference is the magical parsing of while (<HANDLE>). Try with B::Deparse:

while (defined($_ = <DATA>)) {
    last;
}
[download]

-but-

while (-<DATA>) {
    print $_;
}
[download]

The second form doesn't actually assign the line into any variable.

(Of course, a negative "Just" is still not negative.)