use JSON qw( decode_json );
my $json_array = decode_json ( do { local $/; <DATA> } );

__DATA__
Json text