Select Code to Download

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

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