for ($q->param(-name=> 'Country')) {
             $redr .= "&COUNTRY=$all_countries{$_}";
        }