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

##</code><code>##

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