You could always roll your own at run-time, something like (untested):

our %proto = ( '@\@' => sub { return !grep (ref( $_ ) ne 'ARRAY' ), @_
+; },
               # ...
               # proto => sub { enforcement-code }
);

sub foo {
    $proto{ '@\@' }{@_} or die;
    # followed by "real" code for sub foo
}
[download]