#!/usr/bin/perl
use warnings;
use strict;

use XML::XPath;
use JSON;

my $dom = 'XML::XPath'->new(xml => '<r><a>1</a><a>2</a><a>3</a></r>');

my $remedy_queue = $dom->find('/r/a');

print encode_json([ map $_->string_value, $remedy_queue->get_nodelist ]), "\n";