Right now it appears that you are expecting me to write your code for you - without demonstrating much effort on your part.

I do have clients that pay me for solving their problems. Quite frankly these folks will get much higher priority than you. However I and others here are willing to help you learn. BUT, that means that you need to show some coding effort.

Your points 4,5,6 and 7 tell me that you didn't run much less understand the code which I modified for you.

1) Transposing a table, converting rows to columns is not that difficult if you think logically about it. I want to see a serious attempt by you. Use the 2-d table that my code generates.

2) Setting the current field to what was before in the case that it is "blank" (whether row-wise or column-wise) is also something that you should be able to make an attempt at.

The construction of a state machine to parse your various tables was beyond either of these tasks and I felt that it was necessary to get you "unstuck".

Solving this problem will help you. Write code that generates @transposed using @array as input. I know its hard, but give it a go...

#!/usr/bin/perl
use strict;
use warnings;

my @array = ( ['a', '1', 'L'],
              ['b', '2', 'M'],
              ['c', '3', 'N'],
              ['d', '4', 'O'],);


my @transposed = ( ['a', 'b', 'c', 'd'],
                   ['1', '2', '3', '4'],
                   ['L', 'M', 'N', 'O'],);

foreach my $row_ref (@array)
{
   print "@$row_ref\n";
}
# Prints:
#a 1 L
#b 2 M
#c 3 N
#d 4 O

foreach my $row_ref (@transposed)
{
   print "@$row_ref\n";
}
# Prints:
#a b c d
#1 2 3 4
#L M N O
[download]

i'm sorry I didn't realize you already sent the solution in the earlier comment, i was working on something else with reference to your code where I want to print lines only after I find the keyword until the table starts ,modifying your previous code I was able to perform my required operation on the obtained output but i'd like to optimize it by just printing the lines after I find the keyword(including the line with keyword),in your code it prints all the lines above the table but I need only those after I find the keyword!! thank you.

Take a look again at the code I wrote at Re^3: Parsing .txt into arrays. The variable "$name" is a string variable with all of the table "name" lines included. If you only want some of the lines in that variable, probably Perl regex (regular expression) is your solution. See: http://www.perlmonks.org/index.pl/Tutorials#Pattern-Matching-Regular-Expressions-and-Parsing