use strict;
use warnings;
use JSON;
use Data::Dumper;
my $json = <<EOT;
[{field1:value1,field2:value2,field3:value3}
,{field1:value4,field2:value5,field3:value6}
,{field1:value7,field2:value8,field3:value9}
]
EOT
my $data = decode_json( $json );
print Dumper $data;