sub foo {
    unless (@_ <= 4) {
        die "foo allows at most 4 arguments";
    }
    ...
}

##</code><code>##

sub foo (;$$$$) {
    ...
}

##</code><code>##

@bar = qw[red blue green yellow brown pink];
foo @bar;