Select Code to Download

while (my ($area, $list) = each %thirdList) {
   foreach my $item (@$list) {
      print join(' - ', @$item), "\n";
   }
}