Maybe Devel::SmallProf could be of use here. You can profile your code with it, and it will write how many times a line was executed in a format like this:

 <num> <time> <ctime> <line>:<text>
[download]