Raj

Patil

4th block tajajinagar Bangalore

Vedanth

R.Patil

4th block tajajinagar Bangalore

2 ##

##

#!/usr/bin/perl -w

use strict;
use warnings;

use XML::Simple;

my $cust_xml = XMLin('./customers.xml',forcearray=>1);

for my $customer(@{$cust_xml->{customer}})

  {
   
    foreach (qw(first-name surname)) {

         $customer->{$_}->[0] = uc($customer->{$_}->[0]);

         }
   }

      print XMLout($cust_xml);
      print "\n";