use strict;

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

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

##</code><code>##

$pq_out = `/opt/bin/pq -o '%last:%first:%loc:%room:%tel:%id' hrid=$c1`;