%gp = ( Gi => [qw[Galpha-i1 Galpha-i2 Galpha-i3]],
      );
print $gp{Gi}[1];