use Text::Table; my $max = shift || 12; my @table = get_table($max); my $text_table = Text::Table->new(1..$max); $text_table->load(@table); print $text_table->body;