Select Code to Download

my %gp = (
  ...
  Gi => \@gi, # an array ref
  Gt => \@gt,
);

  ...
  $j = $gp{$i};
...
  }
  for $val (@values){
  ...