my @C;
for (my $i=0; $i< $msgcount; $i++) {
 $C[$i] = param("C$i");
}