Select Code to Download

use Data::Dumper;

my %hash = ('a'=>1, 'b'=>2, 'b'=>3);
...
$data->{'array'}[4]{'foobar'} = [@array];

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

$data = {
          'a' => 1,
          'b' => 3,
...
                       }
                     ]
        };

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

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