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;

my $hash;
foreach $line (@data) {
($made, $state) = split(/\|/ => $line);
$hash->{$made}->{$state} += 1;
}
foreach $made (keys %$hash) {
foreach $state (keys %{$hash->{$made}}) {
$hash->{$made}->{Total} += $hash->{$made}->{$state};
}
}

$VAR1 = {
'Toyota' => {
'California' => 2,
'Florida' => 1,
'Total' => 5,
'Arizona' => 1,
'Nevada' => 1
},
'Honda' => {
'California' => 1,
'Florida' => 1,
'Total' => 3,
'Arizona' => 1
}
};