@anArray = map { my $x; ref( $x = $xmlin->{$_} ) eq 'ARRAY' ? @$x : $x } keys %$xmlin;