while (@data) {
    print pack( "A${width}" x $cols, splice @data, 0, $cols), $/;
}