#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

my @Co = (1,2);
my $co;

for $co(@Co) {
my $param = param('para_$co');  # <-- ???
do_something($param);
}
...
...