#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper; 
use XML::Simple;

my $xml = new XML::Simple;
my $data = $xml->XMLin("data.xml", forcearray => [ 'student' , 'semister'],														                           KeyAttr=>{student=>"+Name"});

print Dumper($data);