#! /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 jede Zeile muss ein Element im Array sein; da hier
    # @array geleert wird, evtl. mit einer Kopie arbeiten
    if ( my $string = shift @array ) {

        # Array Element aufsplitten
        my @result = split m{ }, $string;

        # Zeilenfelder einfuegen
        splice( @result, 3, 0, @fields );

        # Ausgabe
        print join( ', ', @result ), "\n";
    }
    else {
        die "ERROR: Nicht genug Elemente im Array!\n";
    }
}

__DATA__
A1 A2 A3
B1 B2 B3
C1 C2 C3