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

##</code><code>##

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