foreach my $pos ( 0 .. $#files ) {
  $files[$pos] = qq '\t"$path\\$files[$pos]"   $esquema\n';
}