When you run this script, you should have the following output:

$VAR1 = [
          [
            'A1',
            '007',
            '999-99-9999',
            'self'
          ],
          [
            'C1',
            '008',
            '888-88-8888',
            'spouse'
          ],
          [
            'S1',
            '005',
            '777-77-7777',
            'son'
          ]
        ];
[download]

$VAR1 is not the important part here, don't worry about it for now. What is important is the _value_ of $VAR1, an array reference that contains array referneces - AKA a two dimensional array, which can be called a 'table'.

I think this is what you wanted. jwest's solution is possibly better, however. Using his idea, this would be very nice way to do it:

use strict;
use Data::Dumper;

my @fields = qw(cust_id ssn relation);
my @ent = ("A1", "C1", "S1");
my @id  = ("007", "008", "005");
my @ssn = ("999-99-9999", "888-88-8888", "777-77-7777");
my @rel = ("self", "spouse", "son");
my %data;

for my $i (0..$#ent) {
   my %hash;
   @hash{@fields} = ($id[$i],$ssn[$i],$rel[$i]);
   $data{$ent[$i]} = \%hash;   
}

print Dumper \%data;
[download]

Again, i only use Data::Dumper so that when you run this code, you will see what the datastructure you need to later manipulate will look like, which is this:

$VAR1 = {
          'C1' => {
                    'relation' => 'spouse',
                    'cust_id' => '008',
                    'ssn' => '888-88-8888'
                  },
          'S1' => {
                    'relation' => 'son',
                    'cust_id' => '005',
                    'ssn' => '777-77-7777'
                  },
          'A1' => {
                    'relation' => 'self',
                    'cust_id' => '007',
                    'ssn' => '999-99-9999'
                  }
        };
[download]

Don't worry about the keys (A1,C1, and S1) being out of order (or even in the order that i presented), you can always use sort to order them for you.

Try this instead of the printing the Dump of %data:

foreach my $key (sort keys %data) {
   print 'insert into db_table(',
      join(',',('entity',keys %{$data{$key}})), ') values(',
      join(',',map { "'$_'" } ($key,values %{$data{$key}})), ")\n";
}
[download]

for (@major_PER_Data) {
   print 'insert into db_table(',
      join(',',keys %$_), ') values(',
      join(',',map { "'$_'" } values %$_), ")\n";
}
[download]

Much nicer, but please name your variables more consisely. I notice a lot of PER prefixes in your code, this is a hint that all variables with that prefix might belong together. This symptom is a good candidate for encapsulation, via an object, or simply an array.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)