use strict;
use JSON;
use Data::Dumper;

my($jsonString, $data);

$jsonString = <<EOF;
{
    "users": [
        {
            "name": "Joe",
            "age": 37
        },
        {
            "name": "Dave",
            "age": 36
        }
    ]
}
EOF

$data = from_json($jsonString);

my $users = $data->{'users'};
for my $user (@$users)
{
    print("User '".$user->{'name'}."' is ".$user->{'age'}." years old.\n");
}