The toaster man wins the gold star with some useful code to my problem in the post below, his reponse was:
After a LWP get...
my $parsed = $XS->XMLin($content);
my $xml = $parsed->{Details} || return;
my @results = ref $xml eq 'ARRAY' ? @$xml : ($xml);
Does that help?
Then you always have an array in @results.
This worked really beautifully, I have never seen this ($xml), I also love seeing that ? used I always use an if else, mainly because I could never get my head round that ?.
Anyway I really miss being able to look at code, I remember in Blackstar I used to have an index in my head of places where I had seen some of the good programmers (there was only a couple in those days ;-) ) do something, if I had a similar problem I could trawl through their code and reuse it. I can't do that here.
Thanks Marc, much appreciated.