use strict;
use warnings;

my $index = 0;
while ($line = <>)
{
  frobnicate($indux++, $line);
}
##</code><code>##

use strict;
use warnings;

my $faultsInARow = 0;
while ($line = <>)
{
  if (frobnicate($line))
  {
    $faultsInaRow = 0;  #Initializing a new variable by mistake.
  }else{
    $faultsInARow ++;
  }
}