$webpage = $browser->post($form_url, [
   username => $username,
   (map {widget => $widget{$_}} (keys %widget)),
   created => '1126175051'
],Content_Type => 'form-data'));


##</code><code>##

$webpage = $browser->post($form_url, [
   username => $username,
   (map {widget => $_} @widget),
   created => '1126175051'
],Content_Type => 'form-data'));


##</code><code>##

my $lwparg = [
   username => $username,
   (map {widget => $widget{$_}} (keys %widget)),
   created => '1126175051'
];
use Data::Dumper;
print Data::Dumper->Dump([$lwparg],['lwparg']);
$webpage = $browser->post($form_url, $lwparg, Content_Type => 'form-data'));


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/