$args = {data => $args};
my @newstring;
foreach my $key (keys %{$args}) {
    foreach my $value (keys %{$args->{$key}}) {
        push @newstring, $key.'['.$value.']='.$args->{$key}->{$value};
    }
}
$args = join('&',@newstring);
my $response = $ua->post( $url, Content => $args );