#!/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 @array2;
for (my $i=0;$i<3;$i++) {
        my @array1 = ($dataA[$i],$dataB[$i],$dataC[$i],$dataD[$i]);
        push @array2, [@array1];
}

foreach my $r (@array2) {
        foreach my $p (@{$r}) {
                print $p . "\n";
        }
}