use CGI;
use Data::Dumper;
use strict;

my $q = CGI->new;

$q->param('form', 1 .. 5);

my $h = $q->Vars();

$h->{'form'} = [ 4 .. 6 ];

print Dumper($h, $q), $/;