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