my @industrycodes = sort keys %db;
foreach $i (@industrycodes) {
   print "$i => $db{$i}{industry}\n";
}