use strict;

foreach ($query->param) {
	do_stuff($_) if /^c\d+$/;
}

sub do_stuff() {
	my $cd = shift;
	my $value = $query->param($cd);
	# blah
}