简单的例子：

use strict;
use warnings;

use JSON::XS;

my $json = '[{"Year":"2012","Amount":500}]';

my $arrayref = decode_json $json;

foreach my $item( @$arrayref ) { 
    # fields are in $item->{Year},$item->{Quarter},etc.
}