while (@regions_A = $sth_atl->fetchrow_array) {
    
    push (@regions_A_array, @regions_A);
    
  }