Datei - Zeile springen

[Grub]

Hi

while(<DATA>) {

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

>   
> Struppi.  
  
Danke.  
Was ich aber nicht verstehe ist, wieso in der Variable $next die nächste Zeile und nicht die aktuelle Zeile drin ist?  
Danke für Aufklärung.  
  
ciao,  
Grub