Perl Text :: CSV неизвестная переменная

Question

Вот простой.

Я проверил документы. Что это в строке 18? Какая переменная @$row? Это (выход по умолчанию) $_ из Text::CSV getline функция?

#!/efs/dist/perl5/core/5.10/exec/bin/perl

use Text::CSV;
use Time::Local ;

use strict;
use warnings;

my $file = "$ARGV[0]";

open my $fh, "<", $file or die "$file: $!" ;

my $csv = Text::CSV->new( {
    binary    => 1,
    auto_diag => 1,
} );

while ( my $row = $csv->getline($fh) ) {
    print "@$row\n" ;                  # Line 18
}

Answer 1

$row является ссылкой на массив. Попробуйте ref(): http://perldoc.perl.org/functions/ref.html.