for my $snmp (@{$i->{snmp}}) {
   for my $version (@{$snmp->{version}}) {
      print "$version\n";
   }
}

##</code><code>##

use XML::XPath;

my $xp = XML::XPath->new(filename => 'filename');
my $nodeset = $xp->find('global/snmp/version');

print $_->string_value, "\n" for $nodeset->get_nodelist;