Select Code to Download

my %list = ( 'lang' => 'de' );
my $listref = \%list;
print ref($listref);

my $listref = { 'lang' => 'de' };
print ref($listref);

use vars qw($query @parname %list $n );

...
foreach $n (@parname) {
   $list{$n} = $query->param($n);
}

$query = new CGI;
@parname = $query->param;
foreach $n (@parname) {
  $hashref->{$n} = $query->param($n);
}