$a = <STDIN>;
my ( @codecs, @channelCap, @percentage );    ## declare codecs variable

for ( my $i = 0 ; $i < $a ; $i++ ) {
	print( "Codec " . ( $i + 1 ) . " = " );
	$tmp = <STDIN>;
	push @codecs, $tmp;
	print( "Channel capacity of codec " . ( $i + 1 ) . " = " );
	$tmp = <STDIN>;
	push @channelCap, $tmp;
	print( "Percentage of codec " . ( $i + 1 ) . " = " );
	$tmp = <STDIN>;
	push @percentage, $tmp;
}

##</code><code>##

print "No.   Codec  ChannelCap   Percentage\n";
print diff \@codecs, \@channelCap, \@percentage,
  { STYLE => 'Table' };

##</code><code>##

Please input the number of codec that using 3
Codec 1 = g711
Channel capacity of codec 1 = 1000
Percentage of codec 1 = 0.5
Codec 2 = g722
Channel capacity of codec 2 = 2000
Percentage of codec 2 = 0.3
Codec 3 = g729
Channel capacity of codec 3 = 3000
Percentage of codec 3 = 0.2
No.   Codec  ChannelCap   Percentage
Not a HASH reference at C:/Strawberry/perl/vendor/lib/Text/Diff.pm line 46, <STDIN> line 10.