Compare the output of the following

use Data::Dumper qw( Dumper );

print(Dumper(\%wind_dir));
print(Dumper(\%locs_by_wind_dir));
[download]