foreach my $f ( keys %$xml ) {
  ... $xml->{$f} ...
}