@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";