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