C:\test>type test.pl
use CGI qw(:standard);
# my %params =  map ($_ => param('$_'),param());
my %params = map {$_ => param($_)} param();
print '-->' . $params{'listname'}. '<--' . "\n";

C:\test>perl test.pl listname=foo bar
-->foo<--