my $pretty_printed_unencoded = $coder->encode ({People =>  [map {@$_} @fields] });