Select Code to Download

<university>
<name>svu</name>
...
..............................
.....................
</data>

#!/usr/bin/perl
use warnings;
...
my $data = $xml->XMLin("data.xml", forcearray => [ 'student' , 'semist
+er'],                                                                
+                   KeyAttr=>{student=>"+Name"});

print Dumper($data);

$var1={
      
...
                                          }
                                         }
                                       };