use strict;
use warnings;
use JSON qw(decode_json);
my $json_decoded = decode_json(do {local $/ = undef; <DATA>});

#...your code goes here...

__DATA__
{"foo":"bar",
"baz":["buzz":1]
}

##</code><code>##

use strict;
use warnings;

my $json_decoded = {foo => 'bar', baz => ['buzz', 1]};

# Your code goes here...