if($access eq 'prod' || $access eq 'dev')
{
   if($access eq 'dev')
   {
      $flag = "dev";
   }

   for(my $i = 0; $i < 3;$i++)
   {
      if($flag eq 'dev')
      {
         @files = ('file1', 'file2', 'file3', 'file4');
      }
      elsif($i == 2)
      {
         $flag = "reporting";
         @files = ('file1', 'file2', 'file3', 'file4');
      }

      if($access eq 'prod')
      {
         $flag = "prod";
         @files = ('file1', 'file2', 'file3', 'file4');
      }
      else
      {
         break;
      }

       for (my $j = 0; $j < 4; $j++)
            {
               my $file = $files[$j];
               my $db = $dbs[$j];
               print("j variable is: $j\n");
               $acString = &build_string($user, $db, $flag);
               &WriteFile($file, $acString);
            }
   }
}