...
use JSON::XS
...
my $encoded = encode_json \%output;
...