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

##</code><code>##

my @C = map { param("C$_") } 0..$msgcount - 1;