Perl - Pegar columnas en un archivo

#!/usr/bin/perl

use autodie;

## Abrimos los archivos

open my $ARCHIVO1, '<', 'archivo1.txt';

open my $ARCHIVO2, '<', 'archivo2.txt';

open my $ARCHIVO3, '<', 'archivo3.txt';

while (my $linea3 = <$ARCHIVO3>) {	# para todas las líneas del archivo 3

    my $linea1 = <$ARCHIVO1>;		# línea del archivo 1

    my $linea2 = <$ARCHIVO2>;		# línea del archivo 2

    chomp($linea1, $linea2, $linea3);	# quitamos finales de línea

    my @campos = split /[,]/, $linea3;	# partimos la línea 3

    $campos[0] = $linea2;		# cambios

    $campos[2] = $linea1;

    $linea3 = join ',' => @campos;	# recomponemos la línea

    print "$linea3\n";			# resultado

}

close $ARCHIVO1;

close $ARCHIVO2;

close $ARCHIVO3;