#!/usr/bin/perl -w
use strict;

my $data = <DATA>;
my @data = split(/\s+/,$data);
#print "$_\n" foreach @data;   #run to see what data looks like

my %stns;
my $variable = undef;

foreach my $token (@data)
{
    my @tokens = split(/,/,$token);
    if ($tokens[0] eq 'VARIABLE')
    {
       print_line();
       $variable = $tokens[1];
    }
    
    if ( @tokens > 15)  #stations with 24 hour data
    {      
         $stns{$tokens[0]}++;    
    }
}
print_line();   #for the last data set

sub print_line
{
   return if (!defined($variable)) ; #no data yet
   return if (!keys %stns);          #no 24 point data
   print "$variable DATE? ";
   print "$_ $stns{$_} " foreach (sort keys %stns);
   print "\n";
   %stns = ();
}



=prints
CO DATE? DH1 2 KA5 2 
NO2 DATE? KA5 2 WB6 2 
OZONE DATE? SI2 2 
PM10 DATE? DH1 2 KA5 2 PC 2 WB6 2 
PM2.5 DATE? DH1 2 HL11 2 KA5 2 KH19 2 KN12 2 MV17 2 OV20 2 PA16 2 PC 2 SI2 2 
SO2 DATE? DH1 2 HL11 2 KA5 2 KN12 2 MV17 2 OV20 2 PA16 2 PE10 2 WB6 2 
WD DATE? DH1 2 HL11 2 KA5 2 KN12 2 MV17 2 OV20 2 PA16 2 PC 2 PE10 2 SI2 2 WB6 2 
WS DATE? DH1 2 HL11 2 KA5 2 KN12 2 MV17 2 OV20 2 PA16 2 PC 2 PE10 2 SI2 2 WB6 2 
=cut

__DATA__
BEGIN_FILE FORMAT_VERSION,2 AGENCY,HI1 FILENAME,090913.HI1 
MORE OF YOUR DATA