foreach(@{shift()})
{   $hash{$_} = $cgi->param($_) }