Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    </foo>
  </fields>
</data>

my $xml=XMLin($input, 'forcearray' => [('number','required')]);
$xml->{'fields'}{'field'}{$_}{'number'}->[0] += 10 for keys %{$xml->{'
+fields'}{'field'}};
print XMLout($xml, keyattr => {field => 'name'}, 'rootname' => 'data')
+;