use Data::Dumper;
$Data::Dumper::Useqq = 1;

my @files = glob("*");
for my $file (@files) {
    say Dumper $file;
};