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



##</code><code>##


sub r{
  keys%{{map{$_,1}@_}}
}