my $output = "";

my @AofA = (
             [
               '1;;;;;;;',
               ';;;;;;;;',
               ';;;;;;;;',
               ';;LINE;;SVC;LINE;ACCT;VIEW;'
             ],
             [
               '1;;',
               ';;;',
               ';;;',
               ';LINE;;'
             ],
             [
               '1;;;;;',
               ';;;;;;',
               ';;;LAST;;;',
               ';UPDT;SRCE;UPDT;UPDT;WORK;'
             ]
            );


foreach my $array_ref ( @AofA )
{
 $output .= $array_ref->[3];
}

print "$output\n";