use Data::Dumper;
$Data::Dumper::Useqq = 1;
warn(Dumper(\@files));