my $aux=0;
foreach my $pos (@files){
  $files[$aux]="\t\"".$path."\\".$files[$aux]."\""."   $esquema\n";
  $aux++;
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

for ( @files ) {    # 'for' and 'foreach' are equivalent
   $_ = qq '\t"$path\\$_"   $esquema\n';
}