foreach my $row (@total_sup) {
my $sup = Get_Supplier_Name($row);
print qq(| $sup | );
}
print qq(| Product Name | );
print qq(Flag | );
foreach my $row (@total_sup) {
print qq(Front End | );
print qq(Solid Sales | );
}
print qq(
);
foreach my $row (@total_pid) {
my $sups = scalar(@total_sup);
my $prod_name = Get_Product_Name($row,$group);
print qq(| $prod_name | );
print qq($rowhash{$row}{'FLAG'} | );
for (my $i=1;$i<=$sups;$i++) {
print qq( | );
print qq( | );
}
print qq(
);
}
my $col_span = (scalar(@now_sup)*2)+2;
print qq( |
);