my @list = URI->new('/?foo=Zoo&foo=aha')->query_form;
my %param;
while (@list) {
    push @{$param{shift @list}}, shift @list;
}