$ perl funky.pl
  num   pct     ttl ttl pct offsets to print
----- ------- ----- ------- ----------------
  840   8.40    840   8.40  <7>
  830   8.30   1670  16.70  <8>
  682   6.82   2352  23.52  <6>
  592   5.92   2944  29.44  <>
  524   5.24   3468  34.68  <5>
  508   5.08   3976  39.76  <9>
  408   4.08   4384  43.84  <5:8>
  396   3.96   4780  47.80  <6:9>
  396   3.96   5176  51.76  <6:8>
  366   3.66   5542  55.42  <4>
  336   3.36   5878  58.78  <7:9>
  312   3.12   6190  61.90  <5:7>