foreach my  $cell ('A' .. 'H') {
    foreach my $i (1 .. 12) {
        my $name = 'radio' . $cell . $i;
        print "Param $name missing\n" unless $cgi->param($name);
    }
}