open(AR,'prueba.txt')|| die "$!\n";
 while(<AR>)
 {
   print AR $columna3; # aquí es donde no sé qué código para que me guardara en un archivo diferente  solo la columna de la marca de cigarrillos.
 }

#Abrimos el archivo de lectura y guardamos el contenido en @lines
open my $IN, '<', 'prueba.txt' or die $!;
my @lines = <$IN>;
close $IN;


#Abrimos nuestro archivo de escritura
open my $OUT, '>', 'marcas.txt' or die $!;

#Iteramos por cada una de las líneas
for my $line(@lines){

    #Nos deshacemos del \n final
    chomp $line;

    #Dividimos la línea por espacios
    my @data = split /\s+/, $line;

    #Escribimos la tercera columna en el nuevo archivo
    print {$OUT} $data[2], "\n";
}

#Cerramos el archivo de escritura
close $OUT;

open(AR,'prueba.txt')|| die "$!\n";

open my $IN, '<', 'prueba.txt' or die $!;