use warnings;
use strict;
use Text::Table::Tiny 'generate_table';

my @codecs = ('g711', 'g722', 'g729');
my @channelCap = (1000, 2000, 3000);
my @percentage = (0.5, 0.3, 0.2);

my @table = ( ["No.", "Codec", "ChannelCap", "Percentage"] );
for my $i ( 0 .. $#codecs ) {
	push @table,
		[ $i+1, $codecs[$i], $channelCap[$i], $percentage[$i] ];
}

print generate_table(rows => \@table, header_row => 1), "\n";

__END__

+-----+-------+------------+------------+
| No. | Codec | ChannelCap | Percentage |
+-----+-------+------------+------------+
| 1   | g711  | 1000       | 0.5        |
| 2   | g722  | 2000       | 0.3        |
| 3   | g729  | 3000       | 0.2        |
+-----+-------+------------+------------+