use Data::Dumper;
$Data::Dumper::Useqq=1;
my ($file)=glob('C:/Users/FC/Desktop/*/DATABASE.de');
print Dumper($file);