Select Code to Download

print "DEBUGGING: \n", join ",", keys %$weather;

$States{$state}{$city}

$States->{$state}{$city}