$ perl pm_11112793.pl
Line 1: (PvcCount, LCir, RCir)  CUR:(1, 2, 3)    TTL:(1, 2, 3)
Line 2: (PvcCount, LCir, RCir)  CUR:(2, 4, 9)    TTL:(3, 6, 12)
Line 3: (PvcCount, LCir, RCir)  CUR:(3, 8, 27)    TTL:(6, 14, 39)
Line 4: (PvcCount, LCir, RCir)  CUR:(4, 16, 81)    TTL:(10, 30, 120)