my @files = glob("*");

##</code><code>##

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

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

##</code><code>##

use Encode 'decode';
use Data::Dumper;
$Data::Dumper::Useqq = 1;

my @files = map { decode 'UTF-8', $_ } glob("*");
for my $file (@files) {
    say Dumper $file;
};