Select Code to Download

use strict;
use Data::Dumper;
...
}

print Dumper $ref;

$VAR1 = [
          [
...
            'son'
          ]
        ];

use strict;
use Data::Dumper;
...
}

print Dumper \%data;

$VAR1 = {
          'C1' => {
...
                    'ssn' => '999-99-9999'
                  }
        };

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

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