Select Code to Download

for (1, 9, 3, 60, 10, 20, 40, 35, 35, 35, 35, 35, 10,
         3, 20, 20, 20, 50, 1, 1, 1, 1, 6, 6) {
...
}

print "format = $cu_fmt \n";

@fmt = (1, 9, 3, 60, 10, 20, 40, 35, 35, 35, 35, 35, 10,
         3, 20, 20, 20, 50, 1, 1, 1, 1, 6, 6);
...
$cu_fmt = join ',', (map { "\%-${_}.${_}s" } @fmt );

print "format = $cu_fmt \n";