1 [ <% join(', ', map { qq("$_") } @counties) %> ]
6 my( $state, $country ) = $cgi->param('arg');
8 warn "fetching counties for $state / $country \n"
13 map { s/[\n\r]//g; $_; }
16 'select' => 'DISTINCT county',
17 'table' => 'cust_main_county',
18 'hashref' => { 'state' => $state,
19 'country' => $country,
24 warn "counties: ". join(', ', map { qq("$_") } @counties). "\n"