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

# datei oeffnen, etc.

my @array = (
    'a1 a2 a3 a4 a5 a6',
);

my @spalten = split m{ }, $array[0];


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

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

    print join( ', ', @result ), "\n";
}

__DATA__
A1 A2 A3
B1 B2 B3
C1 C2 C3