Select Code to Download

use strict;
use warnings;
...
    }
    return join(":",@rv);
}

$ perl funky.pl
  num   pct     ttl ttl pct offsets to print
...
  366   3.66   5542  55.42  <4>
  336   3.36   5878  58.78  <7:9>
  312   3.12   6190  61.90  <5:7>