Re^6: getting error while writing to a table

[learner@perl]

Hi, where you want me to use print dd(\%input), when i use the print dd(\%input);i am, what i understood is use about use Data::Dumper; is by using perl module we can print the data structure of array/hash, can you please guide where you want me to dd\%input

[Anonymous Monk]

Right before foreach my $k (keys %input) {

Then do the same for @data right before for my $i ( 0 .. $#data ) {

[learner@perl]

Hi,

my @values;
my $table;

foreach my $k (sort {$b <=> $a} keys %input) {
        foreach (@{$input{$k}}) {
            chomp();
            push( @{@data[$.]},( split /[,\n]/, $_));
            }
        }

    print "After\n";

    print Dumper(\%data);

    for my $i ( 0 .. $#data ) {
        $body .= "<tr>";
        for ( @{@data[$i]}){
            $body .= "<td>$_</td>\r\n";
        }
        $body .= "</tr>";
    }
    $body .= "</table>";

I am getting Global symbol "%values" requires explicit package

[learner@perl]

Hi,

Before

$VAR1 = '12';
$VAR2 = [
          '01-01-1989,ABC,12,12000,300000,Finanance,BC'
    'January,60000'
        ];
$VAR3 = '13';
$VAR4 = [
          '01-01-1988,BCH,13,15000,400000,Manfacturing,CB'
      'Feburary,400000'
        ];
Can't use an undefined value as an ARRAY reference at