Select Code to Download

#all this works:
my $xmlsimple = XML::Simple->new();
...
#this doesn't work:
my $resultid = $response->{channel}->{result}->{resultid};
print "resultid: " . $resultid;

  use XML::Simple;
  use LWP::Simple;
...
  #             resultdesc => "b");

  return @ret_arry;

Adding order
resultid: 0
...
ERROR arry3: 

done