Comment imprimer toutes les valeurs d'un tableau dans Perl

J'essaie d'imprimer toutes les valeurs d'un tableau à partir d'un fichier CSV. Je suis en train de le faire manuellement dans l'exemple ci-dessous. Quelqu'un peut-il me montrer le code pour le faire pour tous les champs de la matrice, quel que soit le nombre de champs? J'essaie essentiellement d'imprimer chaque champ sur une nouvelle ligne.

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS;

my $file = 'test.csv';

my $csv = Text::CSV_XS->new ({
    quote_char          => '"',
    escape_char         => '@',
    binary              => 1,
    keep_meta_info      => 0,
    allow_loose_quotes  => 1,
    allow_whitespace    => 1,
});


open (CSV, "<", $file) or die $!;

while (<CSV>) {
    if ($csv->parse($_)) {
        my @columns = $csv->fields();
        print "$columns[0]\r\n";
        print "$columns[1]\r\n";
        print "$columns[2]\r\n";
        print "$columns[3]\r\n";
        print "$columns[4]\r\n";
        print "$columns[5]\r\n";
        print "$columns[6]\r\n";
        print "$columns[7]\r\n";
    }
    else {
        my $err = $csv->error_input;
        print "Failed to parse line: $err";
    }
}
close CSV;