my $state1=0; my $state2=0;
 while ($record= $fp->getline())
        {
                $state1= statemachine1($state1,$record);
                $state2= statemachine2($state2,$record);
        }# end of while