Select Code to Download

Select or download this

use strict;
use warnings;
...
2   4   9
3   8  27
4  16  81

Select or download this

$ 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)

Select or download this

Line 1: (PvcCount, LCir, RCir)  CUR:(1, 2, 3)    TTL:(10, 30, 120)
Line 2: (PvcCount, LCir, RCir)  CUR:(2, 4, 9)    TTL:(10, 30, 120)
Line 3: (PvcCount, LCir, RCir)  CUR:(3, 8, 27)    TTL:(10, 30, 120)
Line 4: (PvcCount, LCir, RCir)  CUR:(4, 16, 81)    TTL:(10, 30, 120)

Select or download this

use strict;
use warnings;
...
Line 5: (PrvCount, LCir, RCir)  CUR:(8, 5, 1)    TTL:(24, 12, 13)
Line 6: (PrvCount, LCir, RCir)  CUR:(9, 6, 3)    TTL:(24, 12, 13)
Line 7: (PrvCount, LCir, RCir)  CUR:(7, 1, 9)    TTL:(24, 12, 13)