my $xml; #that variable should have the triple magic
print $xml; 
#in scalar context, prints '<r><e1>t1</e1><e2></e2></r>'
print $xml[0][1];
#prints the second child of root, '<e2></e2>'
print $xml{r}{e1};
#prints '<e1>t1</e1>'