use Text::Table;

my $tb = Text::Table->new("Planet", "Radius", "Density");
$tb->load(       
           [ "Mercury", 2360, 3.7 ],
           [ "Jupiter", 71030, 1.3 ],
         );
print $tb;