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