Select Code to Download

@anArray = ref $xmlin->{$key} ? @{$xmlin->{$key}} : $xmlin->{$key};

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