foreach my $file ( @files ) {
   $file = qq '\t"$path\\$file"   $esquema\n';
}