Select Code to Download

sub mchomp { 
  my @a=@_; 
...
  } 
  wantarray ? @a: $a[0]; 
}

  ## returns the modified string
  print mchomp $string;
...
  %new=mchomp %hash;print values %new;
  ## modifes the hash inplace
  mchomp \%hash;print values %hash;