Select Code to Download

sub foo_ize {
  for my $val (@_) {
...
my @arr = qw( baz bar baz BarBar );
foo_ize @arr;
print join ",", @arr;

sub foo_ize_val {
  my @args = @_;
...
print join ",", @arr;
@arr = foo_ize @arr;
print join ",", @arr;