if ($access) {
      foreach (@{$access}) {
          $set{$_->[0]} = $_->[1];
      }
  }

##</code><code>##

	%set = map {($_->[0], $_->[1])} @$access;