my %FORM = map { $_, @{[ param($_) ]} > 1 ? [ param($_) ] : param($_) 
} param();