Help for this page
if ($access) { foreach (@{$access}) { $set{$_->[0]} = $_->[1]; } }
%set = map {($_->[0], $_->[1])} @$access;