use Sub::Signatures 'strict';

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