sub foo(CGI $cgi) { ... }
sub foo(CGI $cgi, ARRAY $arr) { ... }