sub mychomp {
  while (@_) {
    for (shift) {
      push @_, grep {
        ref || eval { defined && chomp; 0 };
      } ref eq 'ARRAY'  ? @$_ :
        ref eq 'HASH'   ? values %$_ :
        ref eq 'SCALAR' ? $$_ :
        ref eq 'REF'    ? $$$_ :
        $_
    }
  }
}