sub i{
  my ($g,@c) = @_;
  ...
}