use File::Touch;
my @file_list = (
  q[D:/Perl/strawberry/cpan/sources/authors/01mailrc.txt.gz],
  q[D:/Perl/strawberry/cpan/sources/modules/02packages.details.txt.gz],
  q[D:/Perl/strawberry/cpan/sources/modules/03modlist.data.gz]
);
touch(@file_list);