Simplification of the code

[Nath, Alok (STSD)]

Hi,
        Can anybody help me to simplify the for loops here ?
        It parses the excel file.
        

        foreach my $col (1..10){
                push @row_1, $Sheet->Cells(1, $col)->{'Value'} ;        
        }
        my @node_names = th([EMAIL PROTECTED]);

        foreach my $col (1..10){
                push @row_2, $Sheet->Cells(2, $col)->{'Value'} ;        
        }
        my @workstations = td([EMAIL PROTECTED]);


        foreach my $col (1..10){
                push @row_3, $Sheet->Cells(3, $col)->{'Value'} ;        
        }
        my @cards = td([EMAIL PROTECTED]);


        I am using the above for loops to create a table -finally.


        print table({-border=>undef,-width=>'100%'},
            caption(b('My table')),
            Tr([EMAIL PROTECTED]),
            Tr([EMAIL PROTECTED]),
            Tr([EMAIL PROTECTED]),
        }

Thanks
Alok.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/