while($line=<FH>)
{
                print "$line \n";
                while(<FH>)
                {
                        print "Next line is $_ \n";
                }
}