#!/usr/local/bin/perl -w
use CGI qw/:standard/;
print 
  header,
  start_html('Simple Script'),
  h1('Simple Script'),
  start_form,
  "What's your name? ",textfield('name'),p,
  "What's the combination?",
   checkbox_group(-name=>'words',
    -values=>['eenie','meenie','minie','moe'],
    -defaults=>['eenie','moe']),p,
  "What's your favorite color?",
   popup_menu(-name=>'color',
    -values=>['red','green','blue','chartreuse']),p,
   submit,
   end_form,
   hr,"\n";

if (param) {
  print 
  "Your name is ",em(param('name')),p,
  "The keywords are: ",em(join(", ",param('words'))),p,
  "Your favorite color is ",em(param('color')),".\n";
}
print end_html;
[download]

Hi poj thanks for your reply, but I need to be able to submit an array of values eg. values=>\@array which does not currently work. It will work with -values=>'eenie','meenie','minie','moe', but the former is what I want because of the dynamic values been created in \@array. Any other ideas?

Just work through one change at a time from the working script to the failing one.
If it works with -values=>['eenie','meenie','minie','moe'], try it with

use CGI qw/:standard/;
my @words = ('eenie','meenie','minie','moe');
print
.
.
-values=>[@words],
[download]

poj

So far I haven't seen any other solution yet.

And you likely won't, sorry