use Data::Dumper qw( Dumper );

print(Dumper(\%wind_dir));
print(Dumper(\%locs_by_wind_dir));