my $value = decode_json($json)
    ->{'foo'}[0]{'bar'};