You have several ways to go for this. Pick one that fits what you want.

Inside the sub, you can say

sub CallSub {
    my ($IGot, $TheBlues, @Array) = @_;
# or
    #(my $IGot, my $TheBlues, @_) = @_;
# or else shift the first two in
    # my ($IGot, $TheBlues) = (shift, shift);
    # ...
}
[download]

The second two are equivalent.

Another way is to pass in an array reference, either explicitly, or by defining CallSub with a prototype of ($$\@). In either case you would do that like this,

sub CallSub
# ($$\@)  # if you choose
{
    my ($IGot, $TheBlues, $Arrayref) = @_;
    # or some variation
    # ...
}
[download]

All these reflect a slight weakness in the design your question implies. There is a very tight binding between the definition of sub CallSub and the arguments given its use. That may be unavoidable, but the most natural subs seem to take an open list of like things. You may find that your design is better than the alternatives, but you can only benefit from examining what else you might do.