while (my $line = <FILE>) {
   my $x = <FILE>;
   # ...
}