Select Code to Download

sub o{
  my ($g,$w) = @_;
...
  } @$g;
  return [$c,$w]
}

sub o{
  my ($g,$w) = @_;
...
  } @$g;
  [$c,$w]
}