my @Table = (
   [
       ["0123456","bar","0" ],
       ["Let's talk about these excellent numbers"],
       ["Bah bar" ],
       [ '0123456' ]
   ]
);
use Text::WrapAoAoA;
print
    wrapit( {
        colsep => ' ',
        colwrap => [ 4, 10],
        asonetable => 1,
    },@Table);

print
    wrapit( {
        colsep => ' ',
        colwrap => [ 4, 10],
        asonetable => 0,
    },@Table);

__END__
# results if wrapping for 1st column was 4
# and for 2nd column was 10
# with a separation between them of 1 space
0123- Let's talk
456   about these 
bar   excellent
0     numbers
      Bah bar
      0123456

# or even this, given the option
0123- Let's talk
456   about these 
      excellent
      numbers

bar   Bah bar

0     0123456