foreach $key (keys %{$Xml->{data}}){
 ...
 }