my $cgi = new CGI;
my @bla = map { $cgi->param("bla[$_]") } 0..1;
my %foo = map { $_ => $cgi->param("foo['$_']") } qw/bar baz/;