#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

# datei oeffnen, etc.

my @array = (
    'a1 a2 a3 a4 a5 a6',
    'b1 b2 b3 b4 b5 b6',
);

# "datei" auslesen
while ( my $line = <DATA> ) {
    
    chomp $line;                # umbruch entfernen

    # Sollte 3 Felder (z.B. A,A1,A2) ergeben
    my @fields = split m{ }, $line;

    # fuer jeden String (z.B. "a1 a2 ... a6")
    for my $string ( @array ) {
        # string auftrennen
        my @additional = split m{ }, $string;

        # elemente beider arrays zum string zusammensetzen und ausgeben
        print join( ', ', @fields, @additional ), "\n";
    }
}

__DATA__
A A1 A2
B B1 B2
C C1 C2