perl: foreach() a dalsi polozka

[Michal Ludvig]

Zdravim vespolek,
mam zhruba nasledujici konstrukci v perlu:
(V @file je spousta radku textu.)

   foreach (@file)
   {
      if(nejakapodminka)
      {
         DelejNeco1($_);
# >>>>>  Vezmi dalsi polozku
         DelejNeco2($_);
      }
      else
      {
         DelejNecoJineho($_);
      }
   }

Takze pokud plati 'nejakapodminka' tak potrebuju na aktualni radek
postvat funkci DelejNeco1() a na hned dalsi radek funkci DelejNeco2().
Pokud podminka neplati (coz je vetsina pripadu), tak to s kazdym radke
udela DelejNecoJineho().

Na miste oznacenem '>>>>>' potrebuju z @file dostat dalsi radek do $_
(nebo do jine promenne). Uz nad tim badam celkem dlouho a neprisel jsem na
to jak to udelat :-(((

Predem diky za radu
Michal Ludvig