I am trying to build a table to reference the following informaiton in a table like retrieve. Please help me (if you can)

Entity_ID | Customer_number | SSN          |Relationship

     A1   |     007         |  999-99-9999 | Self
     C1   |     008         |  888-88-8888 | Spouse
     S1   |     005         |  777-77-7777 | Son

[download]
Here is the code that I am trying to use. In a condensed version of course.... 
#!/usr/bin/perl-Tw

use strict;

my @dataA  = ("A1", "C1", "S1");
my @dataB  = ("007", "008", "005");
my @dataC  = ("999-99-9999", "888-88-8888", "777-77-7777");
my @dataD  = ("self", "spouse", "son");

my $count = 3;
my @PER_Data;
my @major_PER_Data;
 
my $j = 0;
for ( 0 .. $count - 1 )
   {
      {
        @PER_Data = ($dataA[$j],  $dataB[$j],  
                     $dataC[$j],  $dataD[$j]);
        $j++;
      }
      push @major_PER_Data, [@PER_Data];
  }

my @PER_Item;
my @PER_Entity;
my @PER_Customer_ID;
my @PER_SSN;
my @PER_Relationship;
my $Num_OF_PER = 0;
my $i = 0;

foreach my $PER_item (@major_PER_Data)
  {
  foreach my $PER_subitem (@{$PER_item})
     {
     $PER_Item[$i] = $PER_subitem;
     $i++
     }

  $PER_Entity[$Num_OF_PER]           = $PER_Item[0];
  $PER_Customer_ID[$Num_OF_PER]      = $PER_Item[1];
  $PER_SSN[$Num_OF_PER]              = $PER_Item[2];
  $PER_Relationship[$Num_OF_PER]     = $PER_Item[3];
  
  
  print "$PER_Entity[$Num_OF_PER]       \n";
  print "$PER_Customer_ID[$Num_OF_PER]  \n";
  print "$PER_SSN[$Num_OF_PER]          \n";
  print "$PER_Relationship[$Num_OF_PER] \n";
  
  $Num_OF_PER++;
  }

[download]

Problem #1

Why when I am expecting this to send me back the table, is it only sending back the following... 
A1
007
999-99-9999
self
A1
007
999-99-9999
self
A1
007
999-99-9999
self

[download]

Problem #2 - If problem #1 can be solved

If we can find the answer to this question, then I can go onto the next thing which is rather than printing out the correct results, how do I put them into a table for referencing purposes?

I would take any advice good or bad that you may have to offer on this one

peace, LOVE and ((code))

basicdez

In reply to Table building confusion Help Wanted by basicdez

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.