Select Code to Download

while (<'FILE'>) 
{ $gline = <'FILE'>; 
  print $gline; 
}

while (<FILE>)
{   $gline = <FILE>;
...
foreach(0..$#odd)
{ print $odd[$_], $even[$_];
}