Using the array approach, if the data you want in your table is being read from a file you could try the following approach:

#!/apps/bin/perl -w
use Data::Dumper;

$table = ();

while (<>) {
    chomp;
    $curr_rec = [split /\|/, $_];
    push (@$table, $curr_rec);

}

print Dumper (\$table);
[download]