@sql_query
). ') ) AS foo';
-my $link = 'cust_pkg.cgi?'.
- join(';', map{ "$_=". $search_hash{$_} } keys %search_hash). ';';
+my $link = 'cust_pkg.cgi?'. join(';',
+ map { my $key = $_;
+ my @values = ref($search_hash{$_})
+ ? @{ $search_hash{$_} }
+ : $search_hash{$_}
+ map { "$key=$_" } @values
+ }
+ keys %search_hash
+ ). ';';
+
my $link_suffix = sub { my $row = shift;
my $result = 'censustract='. $row->censustract. ';';
$result .= 'report_option='. @row_option[$row->upload - 1]