#!/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++;
  }