Select Code to Download

use CGI;
my $query = CGI->new;
my @names = $query->param;
my %hash  = map { $_, $query->param( $_ ) } @names;

my %hash  = map { my @vals = $query->param( $_ ); $_, \@vals } @names;

#!c:/perl/bin/perl.exe -wT
use strict;
...
      $query->pre( $query->h1('Hash2'), Dumper( \%hash2 )),
      $query->pre( $query->h1('Chipmunk'), Dumper( \%chipmunk )),
      $query->end_html;