How do I pass a sequence of variable names to a subroutine one at a time?

[guzz1]

I want to modify this so it executes on each variable passed to it, e.g. $c1, then $c2, $c3, etc. This works for $c1:

$c1 = $query->param( 'c1' );
@cand_info = &get_cand_info( $c1 );

.....

sub
get_cand_info() {
        my ( $c1 ) = @_;
        my @cand_info = ();
        my $pq_out;

        # Gather the information from a POST query.
        if( length($c1) == 7 ) {
                push( @cand_info, 'HRID' );
                $pq_out = `/opt/bin/pq -o '%last:%first:%loc:%room:%te
+l:%id' hrid=$c1`;
        }
 
        chomp $pq_out;
 
        # Put the data into the list.
        @cand_info = ( @cand_info, split(/:/, $pq_out) );
        ($cand_info[1] = $cand_info[1]) =~ s/_/ /g;   # name massage
 
        return @cand_info;
}

I've been trying to do this by calling the subroutine in a for...next loop, and passing it a variable which changes value each time through the loop, but with no success:

for ($gi = 1; $gi <= $tno; $gi++ ) {
         $tnum = "c".$gi;
         $tnum2 = $query->param( '$tnum' );
         @cand_info = &get_cand_info( $tnum2 );
}

I'm worn out with trying different variations on how to pass the value(s) to the subroutine, help would be greatly appreciated.

Originally posted as a Categorized Question.