Datei - Zeile springen

[Grub]

Hi,

while(<DATA>) {

next if (!/$pattern/);
my $next = <DATA>
print $1, $next;
}

>   
>   
> > Danke.  
> > Was ich aber nicht verstehe ist, wieso in der Variable $next die nächste Zeile und nicht die aktuelle Zeile drin ist?  
>   
> Mit <DATA> liest du immer die naechste Zeile aus dem File aus. Wenn das pattern nicht passt wird mit next wieder zum Schleifenanfang gesprungen und hier die naechste Zeile ausgelesen.  
> Wenn es passt wird die Zeile "my $next = <DATA>;" aufgerufen. Hier wird die naechste Zeile des Files in die Variable $next geschrieben.  
>   
> Hoffe das ist so verstaendlich fuer dich.  
>   
> mfG,  
> steckl  

Hallo,  
  
das war nicht ganz das was ich wissen wollte. Vielleicht habe ich meine Frage falsch formuliert.  
Wieso ist im Filehandle <DATA> bei der Zuweisung an $next der Inhalt der "nächsten" Zeile und nicht der "aktuelle" Zeile?  
Das bei "while" das Filehandle auf die nächste Zeile hüpft ist mir bewusst. Nur bin ich verwirrt, dass dies ebenfalls bei einer Zuweisung geschieht.  
  
ciao,  
Grub