[ 
'field1' => '1',
'field2{subfield1]' => 'x', 
'field2[subfield2]' => 'y',
'field3{subfield3]' => 'int',
'field3{subfield4}' => 'string',
 ]
##</code><code>##

#!/usr/bin/perl --
use strict;
use warnings;
use PHP::HTTPBuildQuery qw/ http_build_query /;
use PHP::ParseStr qw( php_parse_str );
use Data::Dump qw/ dd /;
use WWW::Mechanize;
my $con = {
    'field1' => '1',
    'field2' => [ { 'subfield1' => 'x', 'subfield2' => 'y' }, ],
    'field3' => { subfield3 => 'int', 'subfield4' => 'string' },
};
my $hbq = http_build_query($con);
my $pps = php_parse_str($hbq);
dd( $con, $hbq, $pps );
my $ua = WWW::Mechanize->new( autocheck => 0 );
$ua->timeout(0.1);
$ua->add_handler("request_send",  sub { shift->dump; return });
#~ $ua->add_handler("response_done", sub { shift->dump; return });
#~ $ua->show_progress(1);
$ua->post( 'http://localhost/', Content => $hbq, );
$ua->post( 'http://localhost/', Content => [ 
"field1" => 1,
"field2[0][subfield1]" => "x",
"field2[0][subfield2]" => "y",
"field3[subfield3]" => "int",
"field3[subfield4]" => "string",
], );
__END__
(
  {
    field1 => 1,
    field2 => [{ subfield1 => "x", subfield2 => "y" }],
    field3 => { subfield3 => "int", subfield4 => "string" },
  },
  "field1=1&field2%5B0%5D%5Bsubfield2%5D=y&field2%5B0%5D%5Bsubfield1%5D=x&field3%5Bsubfield3%5D=int&field3%5Bsubfield4%5D=string",
  {
    field1 => 1,
    field2 => [{ subfield1 => "x", subfield2 => "y" }],
    field3 => { subfield3 => "int", subfield4 => "string" },
  },
)
POST http://localhost/
Accept-Encoding: gzip
User-Agent: WWW-Mechanize/1.73
Content-Length: 125
Content-Type: application/x-www-form-urlencoded

field1=1&field2%5B0%5D%5Bsubfield2%5D=y&field2%5B0%5D%5Bsubfield1%5D=x&field3%5Bsubfield3%5D=int&field3%5Bsubfield4%5D=string
POST http://localhost/
Accept-Encoding: gzip
User-Agent: WWW-Mechanize/1.73
Content-Length: 125
Content-Type: application/x-www-form-urlencoded

field1=1&field2%5B0%5D%5Bsubfield1%5D=x&field2%5B0%5D%5Bsubfield2%5D=y&field3%5Bsubfield3%5D=int&field3%5Bsubfield4%5D=string