use Data::Dumper;

my %hash = ('a'=>1, 'b'=>2, 'b'=>3);
my @array = ('c','d','e','f');

my $data = {%hash};
$data->{'array'} = [@array];
$data->{'array'}[4] = {%hash};
$data->{'array'}[4]{'foobar'} = [@array];

print Data::Dumper->Dump([$data], ['data']);

##</code><code>##

$data = {
          'a' => 1,
          'b' => 3,
          'array' => [
                       'c',
                       'd',
                       'e',
                       'f',
                       {
                         'foobar' => [
                                       'c',
                                       'd',
                                       'e',
                                       'f'
                                     ],
                         'a' => 1,
                         'b' => 3
                       }
                     ]
        };

##</code><code>##

use CGI qw(:standard -debug);
my $cgi = new CGI;
print Data::Dumper->Dump([$cgi], ['cgi']);

##</code><code>##

$cgi = bless( {
                '.charset' => 'ISO-8859-1',
                'foobar' => [
                              'val'
                            ],
                '.parameters' => [
                                   'foobar',
                                   'submit'
                                 ],
                'submit' => [
                              'sumbit'
                            ],
                '.fieldnames' => {}
              }, 'CGI' );