Select Code to Download

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

sub CallSub
# ($$\@)  # if you choose
{
...
    # or some variation
    # ...
}