my @keys = %urlparams;
foreach my $key (@keys) {
    eval {
        my $temp = from_json($urlparams{$key});
    } or do {
        $input{$key} = HTML::Entities::encode($input{$key});
    };
}