Select Code to Download

foreach $group_id (keys  %data) {
     @temp = sort keys %{ $data{$group_id} };
...
          # output some stuff;
     }
}

print "<p>array length = ".$#{ @{ $pubs{$lang_group_id}{'pub_alpha_ord
+er'} } }."<p>\n";