Column wise entry in text table

[reaper9187]

Hi monks ..
back with another query .. I'm trying to format the result of my application in a text format using Tk.. Its actually a summary report of time vs performance stats.I'm currently using Text::Table. I find it very easy to use. there is a limitation on the data entry though.. it is row-wise by default. I wanted to know if there is a way to enter the day column wise using Text::table... Sample code

 use Text::Table;
    my $tb = Text::Table->new(
        "Planet", "Radius\nkm", "Density\ng/cm^3"
    );
    $tb->load(
        [ "Mercury", 2360, 3.7 ],
        [ "Venus", 6110, 5.1 ],
        [ "Earth", 6378, 5.52 ],
        [ "Jupiter", 71030, 1.3 ],
    );
    print $tb;

so in above case, i want to enter column 1 first then column 2 nd so on .
Also, the number of columns is variable . Please help