My code formatting seems to have gotten mangled, going to try again for readability.
$Pool = SOAP::Lite -> uri('urn:iControl:LocalLB/PoolMember') -> proxy("$sProtocol://$ichost/iControl/iControlPortal.cgi");
$Pool->transport->http_request->header ( 'Authorization' => 'Basic ' . MIME::Base64::encode("$UID:$PWD", '') );
my $member = { address => "10.100.125.18", port => "443" };
my $member_priority = ( member => $member, priority => "2" );
push @memberPriorityList, $member_priority;
push @memberPriorityLists, @memberPriorityList;
$soapResponse = $Pool->set_priority ( SOAP::Data->name(pool_names => ["testpool-443"]), SOAP::Data->name(priorities => [@memberPriorityLists]) );