my @list;

if (ref $doc->{Result} eq "HASH") {
     @list = $doc->{Result};
} elsif (ref $doc->{Result} eq "ARRAY") {
     @list = @{$doc->{Result}};
} else {
     @list = ();
}

for( @list ){

##</code><code>##

     @list = keys %{$doc->{Result}};