Select Code to Download

@myArea = sort (keys %{$camArray{$trafficArea}});
$items = scalar @myArea;

for ($i=0; $i < $items; $i++) {
    print "\t<option>$myArea[$i]\n";
}

for ($j=0; $j < $items; $j++) {
    print "$camArray{$trafficArea}{$j}\n";
}

%camArray = (
    'seattle' => {
...
        'Hwy 16 at Pearl St.' => '016cc0037'        
    },
);