my %params =  map ($_ => param('$_'),param());
print '-->' . $params{'listname'}. '<--' . "\n";