print FH <<EOT;

Total $thit $tmiss $twrong \
NoWx @no_wx \
Rain @rain \
RaSH @rain_sh \
Driz @driz \
Snow @snow \
SnSH @snow_sh \
IceP @ip \
FzRa @zr \
FzDr @zd \
Thun @ts \
Fog  @fog \
FzFg @zfog \
IceF @ifog \
Haze @haze \
Blow @blow \
Smok @smoke \
Volc @va \
EOT

  $tmiss=0;; $thit=0; $twrong=0;
  @east=(0,0,0);@cent=(0,0,0);@sout=(0,0,0);@west=(0,0,0);