Toyota|California|||||
Toyota|California|||||
Toyota|Arizona|||||
Toyota|Nevada|||||
Toyota|Florida|||||
Honda|California|||||
Honda|Florida|||||
Honda|Arizona|||||

MADE CALIFORINA ARIZONA NEVADA FLORIDA TOTAL
==== ========== ======= ====== ======= =====
Toyota 2 1 1 1 5
Honda 1 1 0 1 3


I can only do:

MADE TOTAL
==== =====
Toyota 5
Honda 3

#!/opt/WWW/tools/perl5/perl
#summarize.cgi

open (DATA,"record.txt") || die ("Can't Open data File \n");
@data=<DATA>;
close DATA;

foreach $line (@data) {


($made, $state, $tmp , $tmp, $tmp, $tmp)=split(/\|/,$line);

if ($made) {

$count{$made}++;
}

if ($state) {

$countstate{$state}++;
}

}


&header_response;

$x=0;

foreach $made (keys %count) {
$x++;

print "<TR ><TD>$x</TD><TD><b>$made&nbsp;</b></TD><TD>$count{$made}&nbsp;</TD></TR> \n";

}
&close_response;


&log_response;
$z=0;
foreach $LogOp (keys %countstate) {
$z++;

print "<TR ><TD>$z</TD><TD><b>$state&nbsp;</b></TD><TD>$countstate{$state}&nbsp;</TD></TR> \n";

}

&footer_response;