Forms Perl脚本中的混合POST值

我需要将POST值发送到服务器url，我正在使用以下代码：

$ogone_ua = new LWP::UserAgent;
$ogone_response = $ogone_ua->post("http://server.url/", {
'ACCEPTURL' => 'http://server.url2',
'AMOUNT' => '1000',
'CURRENCY' => 'USD',
'LANGUAGE' => 'en_US',
'ORDERID' => '20130105220939',
'PSPID' => 'vukasin',
'SHASIGN' => '6AEE128943C7C896A6449FF7C2CE702222995B7F'
} );

但服务器接收：

POST / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: athlon.herrpan.com:2389
User-Agent: SSL-AirKiosk/1.0
Content-Length: 206
Content-Type: application/x-www-form-urlencoded

LANGUAGE=en_US&ACCEPTURL=http%3A%2F%2Fserver.url2&SHASIGN=6AEE128943C7C896A6449FF7C2CE702222995B7F&CURRENCY=USD&AMOUNT=1000&PSPID=vukasin&ORDERID=20130105220939

---

为什么它不正常？bank API需要对POST值进行排序，就像在代码中一样。

哈希没有固有的顺序，因此在调用

->POST

之前，顺序会丢失。但是，（post向其传递参数）也接受数组引用

->post("http://server.url/", [
   ACCEPTURL => 'http://server.url2',
   AMOUNT    => '1000',
   CURRENCY  => 'USD',
   LANGUAGE  => 'en_US',
   ORDERID   => '20130105220939',
   PSPID     => 'vukasin',
   SHASIGN   => '6AEE128943C7C896A6449FF7C2CE702222995B7F',
]);

---

你太快了，我打了一个不太好的回复，你的答案出现了。干得好@池上不会胡闹。：）