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) {
    $cu_fmt .= "\%-${_}.${_}s,"
}

print "format = $cu_fmt \n";