$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;
}