I have no new ideas. Hence i cannibalize my older nodes:

#!/usr/bin/env perl

use strict;
use warnings;
use Path::Iterator::Rule;
use Path::Tiny;
use Data::Dump;
use feature qw (say);

my $rule   = Path::Iterator::Rule->new;
my $level  = 1;
my $suffix = q(*.csv);

$rule->file->name($suffix);
$rule->file->max_depth($level);

my $dir  = q(.);
my $next = $rule->iter($dir);
my ( @data, @files );

while ( defined( my $file = $next->() ) ) {
    my $data = path($file)->slurp_utf8;    
    push @data,  $data;
    push @files, $file;
}

dd \@data;
dd \@files;

__END__
[download]

Slurping is object of disputes. Consider it's use as an option.

Regards, Karl