use strict;   
use warnings;
use lib '/var/root/perl5/lib/perl5';
use Text::CSV;
 
my @rows;
my $fh;
my $csv = Text::CSV->new ( { binary => 1 } )  # should set binary attribute.
                or die "Cannot use CSV: ".Text::CSV->error_diag ();
my $cnt = 0;
my @Values;
my @fields;
my @columns;
my $status;

my $dir = './TEST'; 
foreach my $fp (glob("$dir/*")) {
 open my $fh, "<:encoding(utf8)", $fp or die "can't open $!";
 while ( my $row = $csv->getline( $fh ) ) 
 {
   $status  = $csv->parse(@$row);
   @fields=$csv->fields;
   @columns = $csv->fields(); 
   print($columns[0]); # funktioniert
   print($columns[1]); # funktioniert nicht „Use of uninitialized value“
 }

 $csv->eof or $csv->error_diag();
 close $fh or die "can't close $!";
}

#open $fh, ">:encoding(utf8)", "new.csv" or die "new.csv: $!";
#$csv->print ($fh, $_) for @Values;
#close $fh or die "new.csv: $!";