Re: Creating a Dynamic Table

[ikkon]

thanks for your help, I fix it by using the following code

my @tableData = (
    ["HP Hardware", "Total Cost"],
); 
for my $i ( 1 .. 15 ) {

     my $hardware_name = param('HW_' . $i . '_0');
     my $hardware_val = param('HW_' . $i . '_1');
    if ( $hardware_name and $hardware_val =~ /\w/ ) {        
     push @tableData, [ $hardware_name, $hardware_val ];
     push @tableData, [ "Total hardware cost:", $TotalHWValue];
   }     # if hardware_name
}        # foreach i

my  $some_data = \@tableData;

thanks again for your help