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