# updated -- davorg noticed that $-> ... should be $_=>
my %input = map { $_=>$cgi->param($_) } $cgi->param();