sub mychomp {
  while (@_) {
    eval { chomp $_[0] }, shift, next unless ref;
    (push @_, @{shift @_}), next if ref $_[0] eq 'ARRAY';
    (push @_, values %{shift @_}), next if ref $_[0] eq 'HASH';
    shift;
  }
}